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Centre5oft 



PRESENT 



With over four years experience of providing practical software solutions for busmess and home applications. Gemini have put together a 





Word Processor 

Alulty-laaturedwyd processor pfc^am*rth text formatting - 
right jus'. >i J • ,i:1|ustabie page length - IB* centering - 
output at all or part of lexl to pnnfler - selective saving ■ lilc 
concatenation - b*«krnov* ■ block oetele - reverse print - 
graphtcs pom - dOuWe width pnrH - sorting - left and ngN 
margin seteclabtB - word count - search and replace 



Mailing List 

This program will enable you in k«*y a record of nanes aiXJ 
addresses and then phnt, exarmne. sort and fnj them, afl W*1h 
special selection lecnniques Feaiunng the lamous Gemim 
•search-key " system, you have the option of cresting yew own 
oedicated coding roubles tor each nan* or ; ihe file 
For example, on most mail systems you are only given ihB 
standard headings such as name, street, low", county, etc. 
butwifr sjursjretertt, you KJuld tpr example 1ind all companies 
listed thai have a turnover in excess ol a C*lta^ figure, or all 
subscribers who are behind with Iheif subscriptions, Or all 
people eligible foi a Christmas ca"J Ihisyear' Mull range Ot 
Jtilibes is. callable from the menu including, cdoouree, label 
printing 



Supewr file management system with leatmes fou«d onty 
with package!; costing much, much more Comftettly user- 
Oeimabte data entry format - colours definable ■ advanced 
mathematics using built- in machine code expression 
evatualor ■ last sort on numeric and string fields ■ ertens^e 
searching with w*J card capability • user ■definable dala 
sumrwies -Sample on screen ediling. A ready POWERFUL 
database 1 



Home Accounts 
Designed as a complete home accounting package, tm 
program allows the user to set up and maintain a budget 1c 
items of household expenditure and compare actual w*th 
budget .either numerically, or with the aid of chart graphics 
A complele bank account coufline is included . together with 
standard expenditure categories, which may be changed 10 
suit. 



Word Processor 
Database 
Matting List 



* Home Accounts 

* Extensive 
Documen fa tion 



OFFICE MATE £ 1 1 Cassette 
or 1541 Disk £15 



Step up to OFFICE MATE and save money! Usual price individually £79,BQ 



• Data base * Matt is t * Word Processor 
Cash Book * Final A ceo tints +VAT Fife 



• Stock Controf 
>Fu!t Documentation 



Database, MaHi&t and Word Processors 'Office Mute' PLUS: 
Cash Book / Final Accounts / VAT Fife, 

Gemim s legendary cash book system for the CBM is a complete 'stand-alone ' accounting 
software package, already in extensive use by both accountants and thtk clients. 




General System Overview 

The Gemim cash hoc* package for the Commodore 54.' t £8 
microcomputer is designed for a hardware Syslem 
consisting flf; 

1 ComrTW^M.''128micrcccimputer. 

2 80 column printer 

1 Cassette or disk dala storage. 

Please note lhal running the program tm disk will net change 
Mw way thai the program works, but you w* have me oeneiit 
of tar greater speed and reliability tor the loading and saving of 
Mes that a disk system provides 
There is a total of t99 nominal accounts, e large number of 
which may be defined by the user You may have up to four 
cash control accounls, six bank control accounts, one sales 
ledger and one purchase ledger control account. 
The program will store a data file consisting ol: 
1 . The account biles 

2 ThecunBntcajmulatrtebalarKWOneachaccau^ 
(debit or credit). 

3. TfwnetiiicNeirientorieai^Bcxaiuntl 
the year. 



4. VAT net sales end net payments ligures which are 

automaticalty created and maintained by lha program. 
This same data file is used tjy the FINAL ACCOUNTS 
program. The VAT FILE' wt*Ch accompanies this package is 
designee pi nanly Inr thDse users on the Reta teis spfivial 
VAT schemes. 

The main features Ol 1he CASH BOOR program are as follows. 
1 Double entry routines for transactions Ihrough the 

cash/bar* accounts and saieSj'purchasa ledger control 

accounts 

2. Journal 1aaWy 1or Che innial set up o< accounts, or tor 
ad|ustnvenis io any ol the accounts. 

3. The taeity ip produce ttie following screened or printed 
reports: 

(■) Ligbng ot all the nominal account llttes. 
ID J Monthly transaction summaries. 

[c) A trial balance whenever required- 

(d) Screen VAT memo acoourt balances (salesmet 
purchases, and VAT accounisi 

(•) A batch pnrting facility which provides deiails ol an the 
transactions entered in thB current run ot the program 



4 The facility to extract regular management information 
such as cash,'bank balances, debtors and credriors, sales, 
overheads, etc 

5. The program interlaces with me Gemini FINAL - 
ACCOUNT S program to enable Trading and Profd and 
Loss accounts and Balance Sheet 10 ba produced 
whenever required. CompararjvB or budgetfigurHscanbe 
shown alongside me actual figures using this program 

6, Saeen prompts throughout the program to facilitate ease 
ofuat 

7 Storage of VAT inlortnabon to assist in the preparation ol 
periodic VAT returns 

8 Error Irapping routines tc minimise mput enora. 

9 Tt^tao% lo handle H»financ4aJtransacikyisol sole 
traders, partnerships., lirrted companes, ckibs. etc. 

Users regislered for VAT are reminded lhat it is a statutory 
requirement to inform the* local VAT oftiee when they change 
rheir accounting •eoords on to a newcompu tensed accounting 
System. 



OFFICE 
MASTER 

Cassette 
or 1541 Disk 



Dealers please note thai 'Office Mate' and 'Office Master' 
now available also on BBC, Electron, and Spectrum, 



MAIL 
ORDER 

TO: 




Gomru 



Garni™ Marketing Limned, Gemim House , 
D*nan Way TraOng Estate, Exmovth. EX6 *RS 



Sole distributors to the trade: 

Centre5oft Ltd. Tel. 021 -359-3020 



Please send me .C6W«/128 OtfKe Male packs i.j flSflDMEW 

Please s*nd me CBM 64/128 Oh»ce Master packs Q £25 



Cas-wrte • DibK tpltiAse de^ele as 'iHiieasar,'! 
Cheque t P O s-encloserfHO ^alue £ 



I or please dabu my 
. Accese.'Ame* No 



Name 



I 
I 

| Signature 



24. HOUR CAE DtT CARD 

HOT LINE 
{0395) 266165 (4 1 1 net ^ 
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The software scene this month is as 
crowded and diverse as ever. 

Plunging straight in at the deep end 
with the serious stuff we have four new 
productivity programs from Ariolasoft, all 
brought in from across the Atlantir. 

PaperCMp, llo mePak and The 
Consultant arc all from ihc Canadian 
soflw^rf house, Batteries Included, 

PaperClip is a word processor and it 's a 
former number one piece of software in 
the States. Ariolasoft describes it as 
professional and comprehensive and it 
features full screen editing. It's available 
on disk and side two contains an 
enhanced CI 28 version. 

HomePak is a three module package 
and includes: HomeTcxt a word 
processor; HumeFind, a data manager; 
and KomeTerm a telecommunications 
program which communicates with 
databases and other computers. 

The Consultant is a database 
management system designed lo or^mhr. 
sort and retrieve records, find e*afl ihn v 
and execute a variety of search and 
analysis procedures. 

The final package in the latest batch of 
launches from Ariolasoft is called Cut and 
Paste. It's an easy to use word processor 
from Electronic Arts and its features 
include automatic word wrap, dynamic 
menus and full cut and paste editing, 

Ariolasoft s Ashley Gray said: 
"Ariolasoft has taken great care to ensure 
that these new produei ivily titles are 
exactly righi for the home and small 
business user, both in terms of program 
quality, price and distinctive. UK 
packaging/" 

Commodore is also launc hing new 
products for the serious user Two new 
music systems were due to be launched at 
the ideal Home Exhibition as we went to 
press. They are a complete Music System 
including a Commodore 64 for under 
£330 and a Music Expansion system for 
under £150. 

Slaying with the more serious aspects 
of a Commodore user's life, Medstat, a 
Nottingham based software house, is 
promoting its range of exam revision 
software as we come around once more 





J A' level examinations and concentrateon 
verb and vocabulary learning, Prices slan 
at £13,95 and they are all available on the 

CM. , , 

Now In parties. I jns of (lie Rocky 
Horror Show who also own a CI 28 will be 




pleased to hear that CRL is to bring out an 
all new version of its Rocky Horror game 
specially for the 128, Redefined graph i( s. 
brand new sprites, new animation and 
even more locations are promised 
logelher with some stunning effects. No 
price has yet been announced for the 
game but it should be available in May. 

There's also good news from CRL for 
C-16 and Plus/4 owners. The Berks trilogy 



is now available on one cassette priced at 
£6.95. It features the original game, Berks 
plus Major BJink (Berks 2) and Berks 3 an 
arcade adventure in which you finally 
penetrate the Berks city and steal, their 
treasure. 

Virgin has recently launched the 
official Football Association soccer game 
— FA Cup Football. The game is mainly 
text ba*ed and places you in the difficult 
position of managing your teams through 
all the rounds of the FA Cup. 

Tony Williams, author of the League 
Club Directory, upon whose extensive 
research t he game is based, said: "The FA 
to the time of 'O' and J A' Levels, The Cup is football s mo si exciting 
revision aid programs cover French, competition and this game reflects thai 
German, Spanish and Italian CSE. 'O' and excitement. We've had a great deal of fun 



putting it together and I'm sure people 
will have as much fun playing it." It cost 
£7.95 on the C64 

Imagine has entered the Kung Fu 
games market with a new release called 
Vie Ar Kung Fu — a very violent game by 
the sound of it! Set in japan, you take the 
part of Oolong who i5 attempting to 
become a Kung Fu grandmaster in order 
to honour the memory of his late, dear- 
departed father. Success depends on 
mastering the technique of the 16 
different kicks and punches. You've got 
10 opponents to beat and when you've 
knocked out Blues, the resident 
Grandmaster then the title is yours. 

There are two imminent C64 releases 
from Ocean. Green Beret, a 
contemporary war drama from Konami — 
makers of coin-op arcade games — is due 
for release in May at £8.95. There is also to 
be a computer game based on that good 
ol superhero Batman which is scheduled 
for a May launch and will retail again at 
£8.95, 

For those who would rather have the 
satisfaction of creating their own 
programs without a lot of sweat, there is a 
new Graphic Adventre Creator for the 
C 64/ 128 from Incentive Software, It is an 
adventure generaior with a buili in 
graphics editor and Incentive claims that 
it allows you to produce professional 
adventures with ease and does not 
require any knowledge of computer 
programming. It's due for release on 1 
May. 

In the shops now should be Micro 
Power's Doctor Who game, which has 
been in the pipeline for many months. 
The game contains about 130 screens and 
has three different tunes to keep you 
amused while you tackle the problems it 
represents. One of these is, of course the 
classic Doctor Who theme, the price — 
£11.95. Oh, and look out for the 
programmable droid cat. The what? 

If you want to be king of the gnomes, 
or you just want to find out a bit about the 
intricacies of gnome culture then US 
Gold's Time Tunnel might be the game for 
you. You have been chosen as the next 
gnome king but you need lo complete the 
inevitable tasks to prove your worth. An 
ancient gnome manuscript has been 
ripped up and scattered through the ages 
by an evil cyclops — a weird mix of 
Sc amJinavian and Greek folklore! When 
you've got the seven pieces you can 
perform the magic spell which will free all 
the gnomes in the forests of Scandinavia 
and allow you to become their supreme 
leader. It's £6.95 on cassette and £14.95 on 
disk. 

Vet another well known hero has been 
transferred to ihe big screen and thence 
to the computer monitor. This time it's 
Biggies and Mirrorsoft has acquired the 
rights to produce the game of the film 
of the books. It should be out ai the 
beginning of May so budding air aces 
watch Out for it. 





Comic Bakery 
m iMipi^ tug™*" 




Mind Games joins the Force 



Kung fu 



Moving from the air right down to 
earth into the realms of the ludicrous you 
come to a new release from Imagine 
called Comic Bakery. You are )oe the 
baker in charge of your high tech loaf 
producing plant, and you must stop the 
scavenging raccoon dogs eating all the 
loaves. It's in the shops now at £8,95 on 
cassette. 

If you've always wanted to find out 
what it's like to be one of the boys in blue 
in a city police force then maybe Mind 
Games latest offering will give you some 
idea of what it's like. Allegedly produced 
in consultation with some of " Britain's top 
policemen" it's a complicate^ game 
which requires you to keep law and order 
without losing your popularity. 
Impossible? Try it and see, it's £9 95 and 
patrolling the streets now. 

For C-16 owners there is now a version 
of Elite's very popular title Commando. 
Originally an arcade coin-op game it has 
been available for the C64 for some time. 
Now C-16 users can have a taste of 
excitement themselves. 
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US Cold, Unit 10, The Parkway Industrial 
Centre, Heaneage Street, Birmingham. 
021 359 3020. 

Elite Systems: Anchor House, Anchor 
Road, Aldrige, Walsall WS9 SPW. 0992 
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Carpenter's Road, London El 5 2HD. 01 

533 2918, 
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Nottingham NC1 6BH. 0602 411120. 
Commodore: 1 Hunter's Road, Weldon, 
Corby, Northants NN17 1QX. 0536 20555 



Generally Speaking 




The Commodore holiday oiivr 



A plug-in adaptor to get rid of mains 
interference is now available from 
Duraplug. It fits directly into a standard 
socket and provides a continuous 
laundering of the electrical supply to a 
plugged in appliance. 

Computers are apt to suffer from 
voltage surges and the adaptor will clean 
this up so that your printer won't print 
weird gobbledegooL 

It's available from high street shops for 
£17.90. 

Another of the smaller software 
houses in this country has joi ned together 
with one of the big boys to make 
distribution faster and more reliable. 

English Software has sit;ru'd an 
agreement with US Gold to make the 
American firm and sole distributor of 
English Software's new products, If you've 
ever had any trouble getting hold of the 
latest English Software then perhaps it will 
be easier from now on, 

tf you live in London or you come to 
town to do the occasional bit of shopping 
or business then you might like to pay a 
visit to the Commodore centre at 
Cu it ronic in Tottenham Court Road. 

Gultronic decided to open the centre 
to meet a growing demand for 
Commodore products, Gultronic's Sam 
Tulsiani said: "The Christmas season was 
very buoyant this year and our major 
problems were supply and not demand. 
Commodore products are of a high 
standard with a good range and the 
company is si able, that is why we decided 
10 invest in the centre/* 



He continued: "We are convinced 
I here is a good future in the home 
computer market as long as people put 
themselves behind the products* 

Following last month's mention of 
CRI/s new label we now have some more 
information on the subject. A company 
spokesman said: "Nu Wave has been 
developed for the computer user who has 
grown tired of the traditional arcade 
game and adventure game and is looking 
for a refreshing altenative. We are 
confident that Nu Wave will make a great 
impact on the software market in 1986." 

There are no Commodore programs 
available on the Nu Wave label at the 
moment but look out for it in the near 
future. 

Hard Lines 

Miracle Technology has just launched the 
new 64 Multimodem, It gives access to not 
only Preslei, Micronet, Microti nk and 
viewdata services but also to databases, 
bulletin boards, electronic mail lelex and 
user-user communications. 

The 64 Multimodem is a complete data 
comms solution — autoanswer, autodial 
on it has all software on board in ROM. It 
is menu -driven and multi -speed and 
supports CCITT V21/23 and Bell 103 
standards handling baud rates of 3O0/300, 
1200/75 and 75/1200. Functions include 
save and print frame, auto mailbox with 
edit and save and telesoftware 
downloading. 



The cost of the new modem is £98.50 
(£116,15 including VAT and UK delivery). 

Commodore .is running another 
holiday offer with purchases of new 
computers. The Commodore 64 
compendium and the new 128 are just two 
products which come complete with up 
to £290 off a holiday for two. 

The offer is valid on a full range of 
Commodore peripherals including the 64 
Compendiumj Commodore 128, disk 
drives, monitors and printers. 

Each product contains five £50 
vouchers which are redeemable against a 
variety of holiday from leading tour 
operators from Club 18-30 toCTC cruises. 

Commodore's Chris Kaday said; l4 Our 
unique holiday offer last year was an 
enormous success, so 'Passport to 
Pleasure' is really a variation on a proven 
theme. Our retailers are absolutely 
delighted and so, we believe, are our 
cu sto me r s . 1 1 j ust goes to show wh a i a I itt le 
imagination and t roativity t an do in a *.(>- 
called shrinking market," 

The vouchers are valid on any holiday 
taken before the end of October 1987. 
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FREE Electronic Mail . , , International 
Telex ... 10 National ChatHnes (Interactive 
Bulletin Boards) . , , 70,000 users across the 
UK . ■ m Teleshopping . . . Multi-User 
Interactive Strategy Games 

Instant computer news . . . Hardware and 
software reviews . . . Technical features . . . 
Hints and tips . . . On-line business advice 
and features 




PRESTEi. ls a trademark of BrirLsh Telecommunications 




Mkronet 800 
8 Herbal Hill, London EClR 5EJ 
Telephone; 01-278 3143 



FREE and discounted quality software to 
download direct to your micro -24 hours a 
day 



300^000 pages of information on the huge 
Prestel database 

for just 20p a day 



To: Microns r 800, 8 Herbal Hill, London ECl 

Please send me a brochure on Mkronet 800 



Name_ 



Address., 



Telephone No_ 



Age 



Micro. 



V- CDM 5.W j 



Competition 




If you used to have a Meccano 
kit when you were knee high to 
a grasshopper then you" 
probably be very interested in 
this month's prize. We got 
together with CRL to offer you, 
as first prize, a Robotrix Master 
Set, Vou can use it to build your j— 
own robots and you can even 
make them mobile because 
there are four motors included. 

The runners-up prizes will 
be especially attractive to our 
rapidly growing number of C- 
16 and Plus/4 readers. There 
are 25 copies of the Berks 
Trilogy from CRL 

How to Enter 

Study the two cartoons. 
There are a number of 
differences between them. 
Mark the differences which 
you find on the cartoon 
attached to the entry coupon. 
Fill in the coupon clearly and 
carefully and seal it in an 
envelope. Write your answer 
on the back of the envelope 
and send it to: CRL Competi- 
tion, Your Commodore, No 1 
Golden Square, London W1R 
3AB. Closing date: Friday 30 
May, 1986. 

The Rules 

Entries will not be accepted 
from employees of Argus 
Specialist Publications, CRL 
and Alabaster Passmore and 
Sons. This restriction also 
applies to employee's families 
and agents of the company. 

The How to Enter section 
forms part of the rules. The 
editor s decision is final and no 
correspondence will be 
entered into. 




CRL Co mpetition Enti y Form 



NdlTlf * . 

Address 



...... 



Number of differences found 



post code 



Send your entry to: CRL Competition, Your 
Commodore, No 1 Golden Square, London W1R 3AB. 
Closing date: Friday 30 May, 1986. 

Don't forget to write your entry on the back of your envelope. 
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The result of unique cooperation between three ace software developers 
end the Biggies film production company, Biggies - The Untold Story will 
knock you right out of the airi If s a multi-part arcade strategy game in 
which each part must be completed to reach your final goal. 

In the air. on the rooftops, on the ground, or in the trenches 

YOU CAN BE A HERO! 



Coming In May 



Coming In June 



Commodore 64 
Spectrum 48 K 

Amstrad CPC 

M 



£9.95 tape, £1195 disk 
£9.95 tape 

£9.95 tape, £14 95 disk 



Purnell Book Centre, Paulton, Bristol B518 5LQ 



When you are designing a game one of the longest jobs is de- 
signing the sprite*. If you are good at art then fine, if not your 
next monster will probably end up looking like a square box 
with legs. 

Now, Your Commodore comes to the rescue once again 
with Sprite Ideas, If you have designed any sprites for games 
and you don't mind other peopJe seeing your masterworks 
then why not send them into u&. Each month we will be offering 
£10 for the best entries. 

Your sprites can be anything at all (within reason), if you've 
designed a series of animated characters then send in the lot. 
We'd love to have a look at them. 

So, next timeyou are after an Ogre to put in your new game, 
have a look in this section of the magazine and you may find 
just what you are tooking for. 



his month's sprites are all by Kevin Peppin from Little Neston, South Wirrai. 




100 t RACINE CAR ( LEFT \ 

101 DATAOOOjOOO^OO^OOfOOO, 

102 DATA038, 003,085,238,003, 

103 DA7A127,2J3, 003, 235,1*5, 

104 DATAQ03,255,?35,Q63,213, 

105 DATA253, 235, 243, 169,223, 

106 DAT A2 45 , 233 ,255,255,253, 

107 DATA255,233f233,235,255, 

108 DATA061,255,232,015,063, 
10? i RACINE CAR t filBHT ) 
HQ DATAOOO, 000,000,240,000, 

111 DATAOOO, 187,083, 192,235, 

112 DAT A233 , 1 92 , 0 90 , 235 ,192, 

113 DATA255, 253, 192,083,087, 

114 DA T AO 87 , 1 04 , 095 , 235 ,106, 



013,000,255 
235,233,005 
003,255,165 
085,213,117 
245,169,235 
253,255,169 
233,235,232 
240,000,000 

000,172,235 
253,192,107 
090,235,192 
232,231,093 
095,247*127 



113 DAT AO 95, 

116 0ATA127, 

117 DATA235, 
L18 i BOMB 
1L9 DATAOOO, 

120 DATA080, 

121 DATA0B3, 

122 DATA003, 

123 DATA084, 

124 DAI A 083, 

123 DATA001, 

124 DATAOOO, 
127 1 SH0ST 
129 DAT AC &0, 
12? DATAOOO, 



253,127,255,253,126,255,255 
255,255,255,235,235,124,063 
240,013,235,000,013,252,000 



000,000, 
000,012, 
064,00), 
149, 084, 
005,085, 
084,005, 
093,240, 
000,000, 



000,001, 
000,000, 
101,080, 
006,149, 
084,005, 
063,252, 
000,235, 
000,000, 



004,000,004 
063,000,000 
001,165,080 
084,005,083 
085,084,005 
001,083,240 
192,000,063 
000,000,000 



000,000,000,000,000,000,032 
000,253,000,003,253,044,013 



130 DAT A 235, 

131 DATA063, 

132 DATA208, 

133 DATA125, 

134 BATA211, 
133 DATAOOO, 

136 l HITCH 

137 DATA0O3, 

138 DATAOOO, 

139 DATA 188, 

140 DATAOOO, 

141 DATAOOO, 

142 DATA085, 

143 DATAOOO, 

144 DATAOOO, 



208,015,255, 
252,128,043, 
013,240,208, 
128,000,127, 
233,000,053, 
015,064,000, 

192,000,015, 
002,176,000, 
000,002,148, 
084,000,000, 
001,021,064, 
127,000,085, 
019,000,000, 
000,000,000, 



708,063,252,000 
233,064,063,253 
003,254,000,001 
080,193,255,064 
244,000,063,208 
003,000,000,000 

240,000,010,252 
040,191,000,032 
064,002,093,064 
091,000,001,06? 
011,003,079,249 
063,000,085,013 
000,000, 000,-000 
000,000,000,000 



ADVENTURE 




AID 



Allen Webb comes to 



the rescue of budding 



adventure 



programmers, 



IN MY SHORT ADVENTURE 
series last year, I suggested a 
number of ways of saving 
memory when writing 
adventures. In this article, I will 
describe some machine code 
routines which will actually do 
the job for you. Since each 
routine requires a set of data 
tables, I have written three 
editors in Basic which will allow 
you to create the necessary 
data bases, 

There are three areas for 
real saving: 

1. The inierpretor 

2. The storage of text 

3. The storage of objects 

In order to offer the largest 
possible portion of RAM for 
Basic, I have used The area 
behind the ROMs, The 
memory map of the system, 
assuming that you use all three 
routines, is: 



S8&00-S95FF 

S9600-S96FF 

S970O-S9AFF 

$9B00-$9FFF 

$9F00-$9FFF 

SA0O0-SBFFF 



Object 
descriptions 
Link word table 
Verb table 
Noun table 
Text work area 
Lower text area 





llfl tf PFFIT rsfli 7t+nfiw SI fl TU I 
i j io ir r cnr-. l jri i 1 d t ud j v / lu in | 




PRQ&RArt: EXAMPLE 




en mini Lnri \ itt t i Lnn 






T FT Nil T T " - RPTIFRM 
i r mii l\ ■ nt i unn 




1 m pnfF wt7i+nR ikk 

Itp rukt 31? 1 f &tUD, IJJ 


13 POKE 56,134: CLR 


: PRINT CHRI (147) 'TAKEN" 


20 SYS 679, 'OBJECTS', B, 34304 


: RETURN 


30 SYS 679, "OBJECTS J B , 9, 


150 REN LOOK 


50176 


155 PRINT CHRM147)CHR$(31); 


40 SYS 679, 'VOCABULARY" ,8, 


:SY5 51456,10-1 


3B400 


160 PRINT'I Zm SEE;"CHRi(2S] 


45 SYS 679 , "TESCT" , 8, 49960 


170 SYS 49920,LD: IF PE£K(50 1 


46 SYS 67VTE*T.T N ,8, 51968 


1031=255 THEN PRINT'NOTHI 


50 POKE 40705, 0:PQK£ 40706,6 


NG OF VALUE 1 


: POKE 53211,15 


180 RETURN 


:PQK£ 53293,15 


190 REM INVENTORY 


sPRINT ,CHR*(I47) :L0=1 


200 PRINT CHRUl 47)' YOU'RE 


55 GOSUB 150 


CARRY INS" 


60 SYS 49152,0,21 


210 SYS 49920,255 


70 IF PEEK (40714) '255 THEN 1 


; IF PEEK (501031 =255 THEN 


00 


PRINT CHR$(2B) "NOTHING 


80 VE=PEEK( 40711) 


■ 


; OB=F'EEKM0712M 


220 RETURN 


: L1=PEEK(40713) 


230 REfl DROP 


90 OK VE GOSUB 120,150,190, 


240 IF PEEK(50176+QBK>255 T 


230 


HEN PRINT CHR$(147) , YDU 


100 POKE 78l t 2li POKE 7B2,0 


DON* T HAVE IT " i RETURN 


s POKE 783,0: SYS 65520 


250 POKE 50176+06, LO 


110 PRINT "E5PC39J i :60TO h% 


: PRINT CHR*U473 "DROPPED - 


120 REK TAKE 


: RETURN g 



$C 000-50 BE Interpreter 
5C20O-SC2FF Buffer 
SC900-SC9B9 Object 

manipulation 

code 

5C4O0-5C4FF Object location 
table 

$CB00-$CCFF Low area tables 



PRO&RAN; ^QADER 



10 REMHtf IMItlttl 

20 REN) CSPC2 ] PEEKALLISPC2] I 

30 REKtmmmm 

40 DATA 32,253,174,32,138, 
173,32,247,183,165,20,144, 
21,133,160,132,181,160,0 

50 DATA 169,52,133,1,177,130, 



141,232,3,169,55,133,1,96 
40 FOft M TO 32 i READ I 

j POKE 50944+1, K: NEXT 
70 REMHIUIttttUtt 
80 REM SAVE BLOCK t 
90 REMtllttftlttlUl 
100 DATA 32,212,225,32,253, 

174,32,138,173,32,247,183, 

145,20,72,145,21,72,32,253 

► 



SCDOO-SCEFF High area tables 
SCFOO-SCFFF Buffer 
$E0OO~$FFFF High text area. 

Using this system, you have 
the following capabilities and 
limitations: 

32255 bytes for Bask useage. 

1536 bytes ($C50C-$CAFF) for 

other purposes. 

Up to: 

255 verbs 

255 nouns 

63 link words 

255 objects in any of 255 
locations 

16382 bytes for use for up to 512 
messages or descriptions 

Whilst this may not be up to 
the Quill's standards, it's 
enough for quite a significant 
adventure. 

The editors use three 
machine code routines for the 
loading and saving of data 
blocks. These are included 
with the other machine code in 
Loader 1. I'vt' kepi the six 
blocks of code separate so that 
you can omit the utilities at a 
later date. If you choose to use 
them in your final adventure 
{certainly SAVE and LOAD), 
they occupy spare space 
between the ROMs which is 
low in memory so that they 
don't interfere with the main 
code. I'll discuss these utilities 
later. 

The interpretor is similar to 
the one in my earlier series but 
has been rewritten so as to be 
more compact. It is called by a 
simple SVS 49152,X,V. The 
prompt for input will start at 
co-ordinates X and Y, The 
interpretor will accept up to 79 
characters and delete is 
available to correct your input. 
The text is scanned to extract 



the first, second and last words. 
The first h called the verb, the 
second the link word and the 
last the noun. Here are some 
examples: 



110 DATA 174,32,138,173,32, 
247,183,165,1,41,254,133, 
1,166,28, 164, 21, 1*4,133,21 



Input 


Verb 


Link word 


Noun 


look 


look 






take sword 


take 




sword 


take the 


take 


the 


sword 


big sword 









These words are checked in 
the vocabulary and you are told 
if any are not recognised. The 
positions of found words in the 
vocabulary are returned in 
three registers and an error 
register tells you if the search 
has shown any unknown 
words. These registers are; 

Verb register —40711 
Noun register —40712 
Link word register — 40713 
Error register — 40714 (0=no 
error, 255=word not recognised) 

When using the interpretor, 
the error register allows you to 
loop back for a new command 
if the last one is not under- 
stood. The example program 
given later shows this. 

In order to fit the 
interpreter into your own 
colour scheme, location 40705 
holds the colour of the prompt 
and 40706 holds the colour of 
the input command. 

Listing 1 gives an editor for 
the creation of a vocabulary. 
The editor is menu driven and 
the functions allow you to 
create, alter, load and save the 
vocabulary. There is also an 
option which allows you to test 
the interpretor and get to know 
its operation. The main thing to 
remember is to erase the tables 
if you plan to create a new 
vocabulary. Whilst the editor 
will accept words of any length, 
only the first four characters 
are used. Words shorter than 
four letters are padded with 
spaces. 

One of the biggest 
consumers of memory is text 
Clever companies such as Level 
9 use data compression to fit 
more in. I will content myself 
with simply using "unused" 
RAM. The code provides two 
commands: 



SYS 51456,MN 

prints message number MN 
from the area behind the Basic 
ROM (the lower text area). 

5Y5 51459,MN 



120 DATA 104,133,20,169,20, 
32,95,225,165,1,9,1,133,1, 
96 

138 FOR 1=51688 TO 50742 
:READ Us POKE I,I;T=T+1 
! NEXT 

m REntmmmtmm 

150 REM* RELOCATE LOAD I 

160 RErimmmmtmt 

170 DATA 32,253,174,32,156, 
173,32,16*, 1*2,141,131,3, 
160,6,177,34,153,63,3,208 

I Be DATA 204,131,3,209,245, 
32,241,2,165,20,141,138,3, 
32,241,2,165,20,164,21,133 

198 DATA 251,132,252,169,1, 
17^130,3,160,8,32, 186, 
255,173,131,3,162,60,160,3 

200 DATA 32,189,255,169,8, 
166,251,164,252,32,213, 
255,96,32,253,174,32,138, 

173 

210 DATA 32,247,183,96,8 

220 FOR 1*67? TO 763 

230 READ U POKE 1,X;NEOT 

240 RGKtitlitfftlttt 

250 REM! TEKT N/CCSPC21I 

268 REhtllttlttttUt 

270 DATA 76,16,201,76,71,201, 
32,253,174,32,138,173,32, 
247,183,94,32,6,201,164 

280 DATA 20,140,66,3,185,0, 
203,133,98,185,0,204,133, 
99,120,165,1,41,254,133,1 

290 DATA 160,0,177,98,248,6, 
153,0,207,200,288,246,153, 
0,207, 165, 1,9,1, 133, 1,BB 

300 DATA 169,0,140,207,32,30, 
171,94,32,6,201,164,20, 
140, 6S,3,1B5,8,205, 133,96 
310 DATA 185,0,206,133,99, 
120,165,1,41,253,133,1, 
160,0,177,98,240,6,153,0, 
207 

320 DATA 200,208,246,153,0, 
207,165,1,9,2,133,1,89, 
169,0,160,207,32,30,171,96 
330 FOR I=5H56 TQ 51581 
340 READ I! POKE 1,XjHEXT 



350 RErUtmmtitmtmt 

360 REM* INTERPRETOR fl/C I 

370 REJiitutimmimm 

380 DATA 32,24,192,32,79,192, 
32,135,192,173,3,159,205, 
3,159,240,6,32,188,192 

390 DATA 32,252,192,96,169,0, 
141,0,159,141,3,159,141,4, 
159,141,5,159,141,9,159 

400 DATA 141,0,159,141,7,159, 
141,10,159,160,0,169,32, 
153,0,194,208,192,88,144 

410 DATA 248,160,0,153,120, 
194,153,140,194,153,200, 
194,200,192,40,208,242,96 

420 DATA 32,66,193,72,32,66, 
193,170,104,168,24,32,240, 
255,173,1,159,141,134,2 

430 DATA 169,42,32,210,255, 
173,2,159,141,134,2,140,0, 
32,207,255,201,13,240,7 

440 DATA 153,0,194,200,76, 
112,192,149,1,153,0,194, 
140,0,159,96,160,0,185,0, 
194 

450 DATA 201,32,240,9,153, 
120,194,208,204,8,159,208, 
240,140,3,159,169,0,133, 
251 

460 DATA 169,151,133,252,169, 
120,133,253,169,194,133, 
254,173,12,159,141,11,159 

470 DATA 32,78,193,48,4,232, 
142,7,159,96,172,0,159, 
185,0,194,201,32,240,3,136 

480 DATA 208,246,200,162,0, 
195,0,194,157,160,194,232, 
200,204,0,159,208,243,142 

490 DATA 4,159,169,0,133,251, 
169,155,133,252,169,160, 
133,253,169,194,133,254 

500 DATA 173,13,159,141,11, 
159,32,78,193,48,4,232, 
142,8,159,96,24,173,3,159 

510 DATA 109,4,159,105,1,205, 
0,159,208,1,96,172,3,159, 
200,162,0,185,0,194,201 

520 DATA 32,240,7,157,200, 
194, 232, 208,203,242, U2,5, 
159,169,0,133,251,169,150 

530 DATA 133,252,169,200,133, 
253,169,194,133,254,173, 
14,159,141,11,159,32,78 

540 DATA 193,48,4,232,142,9, 
159,96,32,253,174,32,138, 
173,32,247,183,165,20,94 

550 DATA 169,0, 142,0, HI, 10, 
159,160,0,177,253,209,251, 
208,8,200,192,4,218,245 



560 DATA 76,179,193,232,236, 
11,159,240,16,24,165,251, 
105,4,133,251,165,252,105 

570 DATA 0,133,252,76,85,193, 
160,0,169,13,32,210,255, 
173, 1,139, 141, 134,2,177 

580 DATA 253,201,32,240,7,32, 
210,255,200,76,136,193, 
160,0,173,2,159,141,134 

590 DATA 2,185,180,193,201,0, 
240,10,32,210,255,200,76, 
157,193,32,210,255,169 

600 DATA 255,141,10,159,96, 
32,73,83,32,78,79,84,32, 
73,78,32,77,89,32,68,73,67 

610 DATA 84,73,79,78,45,82, 
B9,0 

620 REM 

630 FOR 1=49152 TD 49612 

640 READ I; POKE 1,I:NEIT 

650 REHUHtmtmtlt 

668 REM OBJECTS fVC I 

670 RErUIMUIttmm 

680 DATA 76,6, 195,76, 112,195, 
32,166,195,165,20,141,182, 
195,169,255,141,183,195 

690 DATA 168,0,140,177,195, 
140,178,195,172,178,195, 
185,0,196,205,182,195,208 

700 DATA 62,169,0,133,251, 
169,134,133,252,173,178, 
195,141,177,195,173,177, 
195 

710 DATA 240,21,24,165,251, 
105,16,133,251,165,252, 
105,0,133,252,206,177,195, 
173 

720 DATA 177,195,208,235,160, 
0,177,251,32,210,255,2(0, 
192,16,144,244,169,13,32 

738 DATA 210,255,169,0,141, 
183,195,238,178,195,173, 
178,195,205,184,195,208, 
172 

740 DATA 96,32,166,195,164, 
20,134,140,177,195,32,146, 
195,165,20,141,180,195,32 

750 DATA 164,195,165,20,141, 
181,195,172,177,195,1B5,0, 
196,205,180,193,240,4,169 

760 DATA 255,141,183,195,94, 
173,181,195,153,0,196,149, 
0,141,183,195,96,32,253 

770 DATA 174,32,138,173,32, 
247,183,96,0,0,0,0,0*0,0, 
#,255 

780 FOR 1=49920 TD 50104 
790 READ l\ POKE 1,1: NEXT 



C64 



PROGRAAe LISTING I 



10 PRINT CHRM147) 

20 TA(I)*3Bt5&: TL( DM171 

; HUH =236! HEM VERB TAB 

II 

50 TA(2)=39*B0; TI<2)=40717 
i rtL{2}=256; m NOUN TAB 
LE 

40 TAt 31 =38400: TL( 31 =40718 
i NL(3)=&4e REN LINK TAB 
LE 

50 VTM0707:NN=4070BiPN=40709 
40 * 
70 i 

B0 DE=8 

90 POKE 53280, 11:PM 532B1, 
1 2s POKE WffsPltlNT CHRt( 
147) 

100 POKE W*5,*!POKE 4070t,l 
1U 1=6: Y=5sSQEUB 930 

jPHINT'flDVENTURE INTERPRE 

TOR EDITOR" 
120 *=AiY=7:G0SUB 930 

!PRIN*"1. ADD A WORD TO 

DICTIONARY" 
130 X=i:Y=BiGCSUB 930 

iPRINT'2. CHftWBE A WORD" 
14* *=6iY=9:EQSUB 930 

; PRINTS. LIST DICTIONARY' 
150 K=*>:Y=10i&Q5UB 930 

iPRINTM. TEST INTERPRETQ 

R" 

160 X*6:Y=ll:GOSUB 930 

: PRlh|T*5. SAVE/LQAD DATA" 
170 X=6: Y=12:E0SUB 930 

i PRINTS. ERASE TABLES" 
m GET [fi IF WTOR It>*6 

•THEN 130 
190 ON VALUfJSQTO 3B0 f 310, 

200,470,600,560 
200 FL=li GOSUB 760 
210 !F PEEK(TLlN) ) a 0 THEN PR 
INT" [CLEARING WORDS IN 
TABLE' i&QSUB 900 
: PRINT" [CLEAR]" :EDTO 111 
220 Hfl= Is PRINT CHR$(147> 
230 PRINT-WORD IWESPC2]"; 
240 FOR 1=1 TO 4 
250 PRINT CHR*(PEEK<TA(N)*I- 
l + HfN-m4n;:NEUiPRINT 
260 WN*HN+lsIF HNOZf THEN 2 
90 

270 &05U8 900 

260 PRINT CHR$ (147); GOTO 230 
290 IF M-N<- : PEEKtTL IN) J THEN 2 
31 



300 G05UB 900: PRINT CHft$il47i 

:SDTO 110 
310 50 SUB 760 

320 INPUT B [D0NN3] INPUT WORD" ; 
HQ I 

330 IF LEN(HOtl>4 THEN WOK 

EFT${N0$,4):E0TO 350 
340 IF LEN(N0»<4 THEN HD*=W 

0t+CHRM32)l&OT0 340 
350 FOR 1=1 TO 4 
360 POKE(TAfN)+M+<HN-nt4) f 

fiSD(HlD*(MOl, I ,i) i :NEKT 
371 PRINT CHRtU4Th60TD 110 
310 FL=1:G05UB 760 
390 «N=PEEK(TL(N})+1 

:IF MH<ML(N)THEiN 400 
395 PRINT 1 NO RQOft IN TABLE" 

;FQR D=l TO 3000: NEXT 

s&DTQ 460 
400 INPUT "[D0NN31 INPUT WORD 1 : 

NOI 

410 IF LENW0t>>4 THEN HOf'L 

EFTt(WOl s 4)iBOT0 430 
420 IF LENLH01K4 THEN NOf=N 

0*+CHR*(32):GOTD 420 
430 FDR W TO 4 
440 POKE(TftfN)+I-l+tNN-l)t4i J 

A5C(HIBt(HDf,I, H) :NEH 
450 POKE TL(Nl,PEEKlTL(N))+l 
460 PRINT CHR*U47kEOT0 U0 
470 PRINT CHRIU47) 

iEYS 1214096,0,22 
m PRI NT* t HONE, BLACK 3 VERB 

NUMBER 1 PEEK 14071 1) 
490 PRINT* NOUN NUflBER"PEEK{4 

0712) 

500 PRINT-LINK WORD NUNBER'P 

EEXI40713) 
510 PRINT" [RVSONj BONN , R I fiHT f 

SPC7] PRESS A KEY TO CD NT I 

KUIEMB)' 
520 PR I NT " [ R V SON j DONN f R I fiHT , 

SPC101PRESS i TO EHT 

tSPC13] " 
530 GET I*: IF I^""THEN 530 
540 IF I*="t*THEN PRINT CHRt 

(147): GOTO 110 
550 GOTO 470 

560 PRINT CHRK 147) "CLEARING 

TABLES' 
570 FOR 1=40716 TO 40718 

:POKE l,0:NE*T 
580 FOR 1=39400 TO 40703 

: POKE i J 32iNEn 
590 PRINT CHRt( 147): GOTO 110 
600 PRINT CHR$U47)j 

t INPUT-SAVE OR LOAB IS/LJ 



610 IF 1*»*S"THEN 640 
620 IF IH-L'THEM 680 
630 GOTO 600 

640 INPUT" C DDHN2IF ILE NAPIE'; 
Fli 

650 PftINT"CD0HN2]SAVIN& — • 
660 SYS 506B8 FIf, DE, 2, 38400, 
40959 

670 PRINT CHRlU47)i6DTO 110 
6B0 INPUT'tDOMIFILE NAHE"; 
FIf 

690 PRINT 1 [CQWN2 ] -GADING. * . " 
700 SYS 679 f Fl*,DE,3B400 
710 PRINT CHRi(147):60TO 111 
720 PRINT CHRK 147) "CURRENT 

DEVICE IS'DE 
730 INPUT NEM DEVICE - } BE 
740 PRINT CHRK 147) iSDTO 110 
750 END 

760 PRINT CHR*£147) 

ilNPUT-IKlCH TABLE (V/N/L) 
H ;II 

770 IF If='V"THEN N=l 

:6QT0 B10 
780 IF It="N'THEN N=2 

:GflTQ 810 
790 IF Ils'L'THEN N»3 

:SOTQ B10 
600 GOTO 760 

810 IF FL*1 THEN FL=»s RETURN 
820 I NFUT* EDDHK21 

WORD NUMBER " j 
B25 IF MN)NL(N)THEN 820 
830 IF HN>PEEKETL(NHOR UN=0 

THEN 820 
B40 PRINT "[DDNN2 WORD NQ'NN" 

IS * *! 

850 FOR 1=1 TO 4 

860 PRINT CHRI (PEEK [Tft(Nl+I- 

l+(MN-nt4));:NEXTiPRINT 
B70 iKPjT'tDQWI 

(JK TO PROCEED"; It 
860 IF IIO'Y'THEN 760 
890 RETURN 

900 PR INT "[RVSON,D0WN T RIGHT, 
SPC7J PRESS A KEY TO CONTI 
NUECSPCB3" 

910 GET 11: IF IS=""THEN 910 

920 RETURN 

930 POKE 78LY:POKE 782,1 
:PQK£ 783,0: SYS 65520 
: RETURN 

940 REmmmmttmmnn 

950 REnt INTERPRETQR EDITOR 
t 

960 REmuinituuiiMUtut 



performs a similar function on 
text stored behind the Kernal 
ROM {the upper text area). 

The start addresses of the 
messages are kept in two 
tables. The function of the 
editor in Listing 2 allows you to 
create the text and sets up the 
tables accordingly. 

In order to allow you to 
store messages of any length, 
up to a maximum of 255 
characters, the editor does not 
allow you to edit text that has 
been entered. I therefore 
strongly recommend that you 
write down your text before 
creati ng the text data base. And 
enter it with carel 

Again ( menus are used to 
aid editing, The editor acts 
mainly on the lower text area, if 
you wish to create a database in 
the upper text area, commands 
are provided which convert a 
lower area file to an upper area 
file. Again, you may save and 
load text but in this case two 
files are saved: The text file and 
the table file 

The table file has the same 
name as the text file but is 
suffixed by J. For example: 
Texrfile name — WOMBAT 
Tablefile name — WOMBAT.T 
Obviously the files are 
loaded to different addresses. 
If you use the loader provided, 
the start addresses are: 
Low area — text address - 
40960, table address = 51968, 
High area — text address = 
57344, table address = 52460. 

You can include colour 
changes or control codes into 
text by pressing the corres- 
ponding CTRL or CBM key 
combinations when entering 
text. Before creation of new 
text files, don't forget to use the 
erase option. 

Finally „ what do we do with 
objects? In any adventure you 
need to know where objects 
are kept so you can take, drop 
or look at them. Two sets of 
data are saved by the editor in 
Listing 3. 

First there is a table of 
object names. Each can be up 
to 16 characters long, A second 
table keeps a record of the 
location of the objects (this 
table starts at 50176). 

The machine code lists the 
items held at a specific location 
and has the syntax: 



SYS 4992CLO 

where LO is the location 



To perform Inventory, you 
then use: 

10 PRINT "YOU'RE CARRYING: 
20 SYS 49920,255 




I have assumed that location 
255 refers to possessed objects. 
To perform Look, use: 

10 PRINT ' VOL CAN SEE: 
20 SYS 49920.LO 

Here, LO is the location 
number. 

To check whether an object 
is a v a i I a b le for taking, 
dropping, examining etc, 
simply PEEK the relevant entry 
for the object in the position 
table. 

As with the text editor, the 
object data base is saved as two 
files: the object table and the 
position table. As before, the 
position table has the same 
name, albeit suffixed by .T. 

The Save and Load routines 
given earlier may well be of 
value in your own programs. 
The Save transfers the block of 
memory from SA to FA to 
device DE and has the syntax: 

SYS 50688 Filename.DE^SA^FA 

The Load routine is 
extemeiy handy. You will know 
that if you use LOAD with a 
secondary address of one {to 
force a relocated load) that the 
program reruns. The Load 
allows you to load a block of 
data to any specified address 
SA and does not try to rerun 
your program. The syntax is: 

SYS 679,File name,DE,SA 

Study the example program 
which shows the use of the 
three sets of routines. 

The routine assumes the 
following: 

1. The verbs Take, Look, Inven- 
tory and Drop occupy the first 
four positions in the verb table 

1. e. Take = 1, Look = 2 etc. 

2. There is an object e.g. a 
sword, in the noun table. 

3. The object specified in 2 is in 
location 1. 

4. The location descriptions 
start at message 0 in the lower 
text area, 

5. All possessed items are in 
location 255. 




10 POKE 532B0,lhPDKE 532B1, 

12:PQKE 64M 
20 FDR 1=0 TD 79: BLI=6L(*CH 

Rtl32):NEIT 
30 POKE 650, 123 
40 DE-E 
50 REM 

60 REM HA IN MENU 
70 REN 

80 PRINT CHR*< 147)5 X=14: Y=S 

: 60 SUB Ml&iPRINT'MAIN 
MENU": Y=10: t'\d 
90 GD5UB I41ff!P«INH. LQUER 

TEXT AREA" 
100 Y=11:60SUB 1410 

;PRINT'2, CONVERT FOR UPP 

ER AREA" 
110 Y«l2l6QSUB 1410 

:PRWT'3. SAVE/LQAB DATA 1 
120 V=13:BQSUB 1410 

iPRlNTMi DEVICE" 
130 Y=14;50SUB 1410 

s PRINT'S. LOAD t CHECK 
IN UPPER AREA" 
140 6ET IS: IF IK'POR I*>'5 

'THEN 140 
150 ON YALE It) GOTO 190,670, 

754,1190,1150 

160 rem 

170 REN TEH AREA MENU 
130 REN 



190 PRINT CHR$(147): X=14:Y=B 

; SOS 119 1410iPRM"LQHER 

TEKT AREA" 
200 M5:MV:G05UB 14*0 

jPRINT'LVlEH TEXT 11 
210 K=15: Y=l 1:GDSUB 1410 

2 PRINT '2. ENTER TEXT 1 
220 X=15!Ysl2sWSUH 1410 

: PR INT" 3- ERASE TABLES' 
230 X=1S:Y=13: &CSUB 1419 

: PHINTM.HAIN MENU' 
240 BET II: IF IK'0'OR Il>'4 

•THEN 240 
250 ON VAUIli GOTO 260.410. 

m t m 

260 PRINT CHRKH7) 
270 REH 

260 REH VIEW TEH 
290 REN 
300 KH-I 

310 IF PEEK(52224+MN>=0 THEN 
190 

320 PRINT "CRE03 MESS ABE # 

[BLACK]' \ HN 
330 PRINT CHRK158) 

sSYS 51454, NN: PRINT 
340 PRINT"—— 

[8 LACK J" 
350 GET Id IF I THEN 350 
360 MN=MN+il60T0 310 
370 SOTO 190 
3B0 REM 

390 REH ENTER TEH 



400 REM 

410 PRINT CHRK147)jHN=0 
420 IF PEEK(52224*MN)=0 THEN 
440 

430 MN-MN+h&DTQ 420 
440 IF MN=0 THEN SA-40960 

:FA=SA!B0TQ 465 
450 SA*PEEK(52224*HN-nt25A+ 

PEEKt51968+MN-l) 
460 FA«SA 

470 SYS 50944, FA: IF PEEK (100 

11*0 THEM 4B5 
4B0 FA=FA+1:60TO 470 
485 FHM9151-FA:PRINT-[H0ME1 

FREE HEM0RY= , FM N BYTES' 
490 Ni-" MESS AGE l'+5TRt(MN> 

:EQSUB 12901 IF SA=40960 

AND MN=0 THEN 510 
500 SA=FA+1:IF FA)49l52 THEN 
190 

510 POKE 52224+HN,SA/256 
520 POKE 51948+HN, 

5A-INT(SA/256)t256 
525 IF FH(LEN(HE*}THEN PRINT 

*ND RD0M FOR KESSAGE - 

: FOR D=l TD 3000:NEXT 

i&DTO 190 
530 FOR [=1 TO LENfHEIt 
540 POKE §A-i+I»ABC(HlG*WE* t 

I, 1J ):KEXTrPDKE SA+1,0 

: GC'O 190 
550 REM 

560 REH CLEAR LOHER AREA 
370 REM 

500 PRINT CHRK 147) "CLEARING 

TEH TABLES' 
590 FOR MN=0 TO 254 
600 POKE 5U6B*HN,( 

iPOKE 52224thN,0;NEn 
610 PRINT CHR1U47) 'CLEARING 

TEKT AREA* 
620 FDR 1= 40960 TO 49151 

: PUKE I,0:NEXT 
630 GOTO 190 
640 REfl 

650 REH CONVERT ADDRESS TABLE 
660 REH 

670 1*0! PRINT CHRt(147)"C0NV 
ERTINS ADDRESS TABLE" 

6B0 2=PEEK( 52224*1) 
(IF Z=0 THEN 710 

690 POKE 52224+1,1+64 

700 I=I*hIF K256 THEN 630 

710 60T0 190 

720 REH 

730 REH SAVE/LOAD 
740 REH 

750 PRINT CHRK 147}: X=14 



: ¥=8i 60SUB L410 


1140 REM 


: PR INT "SAVE/LOAD* i ¥=10 

M 114111 tfn ? »-T bVnlr * 4 Iw 


1150 PRINT CHRS C 147) 

i iHV 1 1MMT 1 i 1 ' r 


i 1*13 


;INPUT"F1LE MNE^FI* 

1 I'll kfl 1 m k k PTni m 1 1 m W 


760 GQSUB 1410:PP1NT'L SAVE 

t tJv LIU ITLVi 1 1U n 1 it jn t U 


1160 PRINT'EDDHN] 


DATA" 

u n 1 n 


LOADING TEXT TO UPPER ARE 

UU n L A I1U 1 h Pi 1 1 U Ml 1 kiPl ilPl k 


77* ¥-11 - CflQI in 1 lid 


A"«S¥S t?T Fit DE 57344 


' PR I MT a ? LDAG DATA" 
■ mini £■ Lunu vn 1 n 


1171 fIt=FIl+"' T* 


sob Bui iiiir i»\ p un it/ £ 


: PRINT" [D0UN1LQABING ADDR 




CSS TABLES"- StfS i79 Fit 


1H ON VALE It) GOTO 630 950 


DE 524S0 




1180 NN=0:PRINT CHRt(l47)*TE 


910 RE* SAVE DATA 


XT IN UPPER AREA" 


B20 REK 


1190 IF PEEK(5?736+r1N)=0 THE 


330 PRINT CMPidJ; 1 [ ;(- 1 4 

U w If 1 Kill 1 Lillli f 1 1 T J r m A 11 


N 190 


- V =fl ■ firKlJR 111 0 

1 T"di D U J U □ 1 T 1 P 


1200 PRINT" [RED] MESSAGE 1 


♦PRTNT'SAUE"' Y=1i' ¥=10 


f HHP" 1 * ' rIN 


qj a ocif UrtuC TFfT A DC A 
B*P Ktfl 5Hrt 1 LA 1 HKLft 


171 fl PRINT rHMd'ifl] 


HDIff rnini LMnHlfn 


• QVC MM-PPIUT 

■ s i -a 3 1 t j r j nni» r PI i ii 1 


■ INPUT "FTIF NAPfF PHP TFK 

■ JnrUP pill nnrTL run it A 


177fl PRTNT'^ ■ ■ 

lits rnini 


1 HRtn | r 11 




dob rrlBI L UUHIUaHYl Ho* Itll 




fl70 SYS WAR Fit TIP ? 409A0 


1230 GET ItilF H="THEN 1230 


771.JJ 


1240 nW=NN+i*GDTO 1190 

1 LIU llll. IJhl'l.flUUlU lift/ 


■DOB P i*~P 4?* i 1 


1250 GOTO S0 




!?ifl OPM 


I re 


1273 RFPT INPUT A STRING 




1290 REM 


59479 


1290 MEt="! PRINT Mt 

i j_ i v 1 1 1_ # i i i\in i 1 1 t 


911 GOTO 190 


1300 BET It: IF I M" THEN 1300 


CTfll RFM 


1310 IF I*=CHR*( 13} THEN 1370 


QXA PPM LOAD 


1320 IF LEN(MEt)-254 AND I*< 


940 REM 

r ■ * lit ■ 1 


)CHRt(20}TH£N L3I0 


%2 PRINT CHRJU47) ■ 

TUP 1 nlll 1 LfFlnfilTMi 


1330 IF II=CHRt(l9)0R IMCHfi 


tAS REM 


H14710R It=CHRt (148JTHEN 

T 1 1 T 1 J yil * W Ul MIT 1 A 1U F 1 llbll 


970 RFN LOAD TFYT ARFA 


1300 


3RH RPH 

TOP ntn 


1140 IF I$-CHRt(20)THEN NEt= 


990 PRINT CHfti ( 1 47) 1 LOAD TE1 
T7D mini LninTii^j lupil 1 i la 


LEFT! (ME! LEN(MEt)-! ) 


T AREA 1 


■SOTO 13i0 

■ LIU 1 li 1 JU P 


1000 INPUT M [D0HH1FILE NAHE*: 

J. IT VZf AMI U 1 L M U FTP* J 1 M tain I 


£350 MEt=MEt+lt 

h vJV ML* 1 1 Lr • 1 I" * 


Fli 


13i0 PRINT CHRS ( 147) 'FREE 


1010 PRINT'CDOHN] 


rlEMQRY= k FM-LEN[flEt)* BYT 


LOAD INS TEXT ' 


ES" 


1020 SYS 679 Flf DE- 40960 


1365 PRINT Ht' PRINT MEl 

i wily r n i ii i iivii r> 1 1 1 ■ iilit 


10!^f PTt=PIt4 v T s 


■ GOTO 1300 

■ ULF 1 U L -JEW 


iFtff rnim Lynyinis h juntas 


i. J i B lit 1 UIill 


TAftt PQ" 

1 HAL La 






i7Da dcm ccT niRqnp Tn I ¥ 
j-jtit ncn i Lun-jun i u a j t 




1 iflfl PFH 


1060 REH 


lUlV PL'T'-L /Dl| T i TUNC ' Qi t A 


1070 REH DEVICE 


■ POKE 7B3 0* S^S 65520 


1 flflfl RPH 




1090 PRIMT CHR$(147r CURRENT 


1420 REN 


STOREAGE DEVICE IS'DE 


1430 rem ttmmtmm 


1100 INPUT'CDDKNIDEVICE'iOE 


1440 REM * TEXT EDITOR 1 


1U0 6OT0 90 


1450 rem mmmmm 


1120 REM 




1130 REM CHECK UPPER AREA 


■ 




The important features of 
the example are: 
Line 10 - protects the data 
bases. 

Lines 20-46 - Load the data 
bases. 

Line 50 - Sets up the colours 
and the location number (LO). 
Line 55 - Tells you where you 
are i.e. performs LOOK. 
Line 60 - Requests a command 
Line 70 - Check* for an unrec- 
ognised command and clears 
the command area of the 
screen prior to requesting a 
new command. 
Line 80- Extracts the key words. 
Note that the noun number 
must be decremented to be 
compatible with the object 
routine. (Nouns are numbered 
from 1 to 255 and objects from 0 
to 254) 

Line 90 - Performs verb 

Note how the Take and 
Drop commands simply 
change the object position 
table. Location 50163 is an error 
flag for the object routine. If it 
contains 255, then it means that 
nothing was found (see lines 
170 and 2101 



I hope this example will 
show how simple these 
routines are to use and how 
compact routines become. 

Whilst I ve tried to ensure 
complete compatibility 
between the three editors, 
Murphy's Law will guarantee 
that I will have missed some- 
thing somewhere. To ensure 
insanity-free work, I re- 
membered the following 
precautions. 

1. Before starting work with an 
editor and after using another 
editor: 

Save your latest database 
Reset the machine with SYS 
64738 

Load the machine code 

2. Regularly save your data 
base. 

3. Work out what the databa&e 
will contain before starting 
work. 

If you have any queries, 
study the editors, you should 
be able to sort them out. If you 
have any real problems, you 
can reach me via Your 
Commodore, 



PROGRAM: LISTING 3 



10 PRINT CHftt(147):DE=B 

2« POKE 532Bft,12:P0KE 5-3281 ,15 



iPRINT*IBLACK]' 
31 PRINT CHR*U47>:T=4:X=19 

iGOSUB 15I:PRIKT"DBJECT 
EDITOR' 
40 f=£:X=ll:6Q5lJB 150 

jpRINT'l , ENTER OBJECT' 



CB4 



58 T=7:J=1»:B0SUB 151 

TEST TABLES' 
60 T=B;I=1»:BDSUB 151 

jPRINT'3. CLEAR TABLES 1 
7t Y=f:X=li:GDSLfB 151 

iPRIMTV, PRINT TALES' 
@l T=II:S=ii:GDSUB 15* 

iPRJNT'5. SAVE TABLES' 
tB r=Ll:l=ll:6DSUB 158 

iPftlNT^. LOAD TABLES' 
181 ^12:X=1*:6DSUB 151 

iPRINT'7, CHANGE DEVICE" 
til f=13ii=l8 eGDSUB 158 

iPRlttT'B. CHANGE LOCATION" 
128 SET I*jIF I$<M"DR It>'B" 

THEN 121 
13* ON VALUi) BOSUB 1A8 I 25( 1 

33l t 3Bi,5li,5Al t 62i s 63i 
14* BOTO 21 

151 POKE 781 ,T: POKE 782^1 
:PDKE 783 1 «rSrS i552i 

mm 

16B PRINT CHRItl47!:QB=B 

165 IF PEEK(5ii76tDBJOi AND 
0B<255 THEN OB=0B+l 
:BDTO l£>5 

166 PRINT'IOT AVAILABLE ENTFf 
T ='08 

171 INPUT "KDRD lib CHARS MAX 

181 IF LENCU0IH16 THEN m=U 

Qt+" " :GQTO iSi 
m W=34384*0Bili-l 
Zee FOR 1=1 TO It: POKE Wft+I, 

ASCfHlDJiMDt ,1 ,1 ) ) iNEKT 
211 PRINT'fOQNNlPLACEB IN TAB 

LE" 

228 PR I NT "tDONN] LOCATION OF 

'W ";sIMPLJT LD 
231 POKE 5I176+OB,LO 
241 RETURN 
258 PRINT CHRIU47) 

: INPUT 'LOCATION* 5 LD 
261 PRINT" ID9NN1AT LOCATION'!. 

0* I CAN SEE" 
27« STS «t2*,LQ 
2BI IF PEEK 1511831=255 THEN P 

RINT'IDOHNINOTHINB 1 
298 ?=t5:I=l:G0SUB 151 

:PRINTMSPC2,RVS0N T SPC91 

PRESS t TO EllltSPCU)' 
388 SET It: IF lf= ,- THEN 298 
311 IF ItOTTHEN 25* 
328 PRINT CHftin47);:RETURN 
331 PRINT CHRt(H71 "CLEARIN6 

TABLES. ..." 
348 FOR 1-1 TO 255 

; POKE 58176+1 t iiNEIT 
351 PR I NT 1 [ BOM ] CLEARING TEXT 
368 FOR 1=34314 TO 383W 



:POK£ 1,I:NEH 
378 RETURN 

38* PRINT CHRttl4T>dM 
398 IF PEEK(58176+ilNJ=8 THEN 
478 

m NA=343l4+INtl6-l 

:PRINT'OBJECT 1 NN , ^. B ; 
411 FOR 1=1 TO li:PRINT CHRK 

PEEXiNA+D) ;:NEIT 

:PRINT" AT LOC'PEEK 158176+ 

UN) 

421 «N=«N+1:1F NK=255 THEN 398 
431 IF lNT(NN/28)OIIN/28 THEN 
398 

448 T-22:I^t:B0SUB 158 
:PfiINT - [SPC2,RVS0N,SPC9] 
PRESS I FOR HOREIBPClir 

45* GET It: If IfO'l'THEN 458 

46* PRINT CHRf (H? r :GDTD 391 

47* T=22si=l!eOSUB 151 
jPRINTMSPCZ^VSON^PC?] 
PRESS t TD EIITEBPCie]' 

488 GET If-IF ItOTTHEN 4B8 

49* RETURN 

588 PRINT CHRIU47) 
ilNPUT'FILE NAHE';FIt 

518 PR 1 NT' CDOHN? SAVING TEXT*. 

52* STB 586B8 FIt,0E 1 2 t 34384 1 
38399 

538 PR I NT *[ DOWN] SAVINS TABLE. 

...•iFiww+'.r 

548 STS 58486 Fit, DE ,2,58176 s 

5*431 
551 RETURN 
568 PRIN? CHRK147) 

: INPUT" FILE NANE';FIt 
578 PRINT-LOADING HIT*... 1 
5B8 m 679 ( FIt T DE t 34384 
59? PRINT "LOADING TABLE...." 

iFlf-Fli+'J' 
hU STS 67? 1 FIf 1 0E T 5*l76 
618 RETURN 

628 PRINT CHRtEI47) - 

iINPUT*DEVICE"jCE:RETURN 
638 PRINT CHRt(147l 

ilNPUT'NORB NUHBER^NN 
64* PRTNT'tOOHN} 1 
658 NA=343*4+iiNll6-l 

iPRINT , OBJECT , *IN\.. i j 
668 FOR 1=1 TD U: PR I NT C'HRt l 

PEEK(«A+n);:NElT 

:PRINT- AT LDCPEEK (51174+ 

■I) 

47* INPOT'[D0NN2JNE« LOCATION 
';L0 

6B8 POKE 5*176+NN,LQ:RETURN 
698 REHtltttltimUMt 
1788 m OBJECT EDITOR I 

711 REntmtmtttimt 





commodore 

II you're w Impressed nweve with ir* new Commodore 126 
compuiar, you'll be even mxa Impressed wflh rho new software 
thal's available tor 1 ncwl Already we're shipping SuperBaaa i2s 
rjiMI £M.B5>. Superscript 12* (£«**> £*I.!5J. Vlia Write 12ft 
Classic (£AM* £«.»). VUaStir 128 fctw-w- £115.00} wd rrow 
Basic end C wmp^era (Pausal ready *oon)... so walch thin spate. 



BCuiltlUllUH tm flWHIII £269 *5 ■ 1JMH monitor 4OVB0 monfl £99-35 

■ Cornrnodare 126D cornputer £499*5 ■ IMIC mofirloi 40VM colour £299 05 

■ \7B0 compuler wtth monttpr £573 B5 ■ Serial or Parallel Interface* £29 35 

■ ComjTOiiofBt2e+157D £449 95 ■l2a,IEEE*ParaWln6«rlaas £?9 95 

■ Commodore 1S70 disk drivn £ 1 99.95 ■ Prinflnn ... supplind » erdef 
FREE bonk 'Anatomy of Di« 119' or Cm aortwwa voucher with nvary ofdar over £iool 
FREE d«Mv*rv. UK mamland. Ptease allow 5 4-ya. *Ad phone to confcm pi^e/avaiUW.ty 



Trunnform youf CommodPT* M into a M 
loatured prof«»lon*l database syslem, 
wiln up to MKK> characters per rncord on 
up ig tour screens., and up to 12B tt#mg 
per record. defmaWe as hey, numeric, 
result or data. .. in files $1 up 1o 1 a million 
characters! SuparHaae M even hp? eakulalsr and calendar lunciHjns. aasy l"P^ 
rroni word processor or data lilos. both menu-drtvan and program conwol. aorting 
and searcMng lully dennnbla report and acraan lormats. .. Superf>»*» 64 is essam.iil 
H you want the mosl Irom your 64! Supplied on 1541 disk wttti exceieril tulonal 
and reference manual, plus audio learning lape... 



For CM and PLUS 4 £54 941 For Cl2t 



£64.65! 




AXhoitgh wfi aia by 1ar ttw larcjaat UK ratallar ol SupwBas*. VrzaSlar 
and VUaWrtte lor trw Corrrnodore 64, (or over flv* V*» r * *a have alw 
aupponed lfwr t^iHt wj^are tor ir*e ComrTK^doia buslnaaa comp^tors! 
SO M you have a CBM.TtT 30O0, *OOO r IOM f 700 pr PC, ihan ctonl 
torget us... we hawant lorgotlen youl Why not phone or mil*? tor oui 
CBMVPET t»ialogua, and 1irvd oul M *bdui the products lislod btjks* 
(Whan ordering, please quoM your computer & disk model number '/ 



■ VljaWnlB 

■ Superscript 

■ Superscript 

■ SuperB?r« 

■ SuperOflica 

■ SuparSpel 

■ Cat Rtrsurt 

■ CbIc RtomH 

■ Cale Rfisull 



cm pc 
6Me,aaaa„7Q0 
art/sow 
aoae.Daaa.Too 

BQ6S,S296,700 
C6M PC 



f.26rj.M 
11. -i 00 
A6.2S 
11S DO 

230.M 
37.50 
Jl 'j. i-i 
K4-T5 
22*95 



■ Delta 


C6M PC 


£569.25 


■ DM5 




Z24.2S 


■ DTL CompaV 


a,'4.'80CO,700 


1 14.43 


■ PM98 




69,95 


■ 9BK upc/ade 




34f.gO 


■ Ma'iNtr 


4032,8000,700 


125.00 


■ KRAM 


3032,4002,19000 




■ Command'O 


4O00.S000 


50.00 


■ Di5*>o-pre< 




40.00 



VIZAWRI f _ v| M VYrHe Clanle 131 la a much enhanced successor to Ihe 
besl-Belling Vi?aWri»a 64, which THE TIMES Inahiiad In throe 
•metes, cafcrig It 'a creative wniw'» drnamr VIzaWrlte Classic 
i» eartaifty the besl wordpr&cessor we've yel seen on any 
compu1er r ever' WriClen specially tor the VlzaWrlta Classic 
makes majdrrpum m» ol the speed, mernOrY ajnd BO-column 
display, showing your document exactly » II will ba printed 
ii InrtLirJaa. a 30,000 word diclionMy, massive 55K laxt area, proportional prlnlar aupport 
plus bulrt-lnNLOTont*. fen CBM/Epson type pnniora, uasY- 10 -" 5 * "pull-ttown' menus, 
lull Tunctton calculator, 'newspaper »tyl«' columns, mall mar^e . «nd much, much morel 




■ vizAWftiTE 'Classic 121 c89i vizastar iai e115s 

B Vi 7A WRITE U ' PROFESSIONAL' (ineludee VIZASPELL> f.*»4* C79JH 

■ VIZA WRITE «* (disk) £«-e* £59.941 (cartridge] £78 .$5! 

■ VIZASTAR M (XL4) £«4» £74 95! V1ZASTAR 64 I'XLS/ £♦«*** £99 ^5! 



Are you a iwo- 
flngar typi^i? 
Then why rx?i lut 
SuperTypa -h-> 

yr;j H>nm Ic; toUCh- 

lypa Ihelasl and easy way... wtlh your 
computer ae Ihe teacher ! Al ihe tannly can 
learn Ihia usatul skA, art their own pace . 
and profit bom ihe w*«y latest computer- 
■ c*. lechnicjuas! 

cm tape e16.sa« 

ON DISK £«Uav £21.95! 



The Anatomy of the 12B 

Wllh nearly 500 Inlo-rmaUon-paclfed pages, 
Uilsls THE book to get about your n«w 
Commodora 121... the Insider 1 ! guldt 
to the tacrala of thla powerful computer! 
FuHy documented ROM IstJngs n1 bolh Base 
and 1he Kernal ... momcry maps... laro-pag^ 
lisiinga... porta, intenupls, boot roulines... 
SID. VIC, ZOO * SO-COlumn chips... memory 
management. , assembly code.. enl» gjrig if* 
n ... 640 * 2O0 graphs*... all Ihis A. much 
lor or*y £1 MSI (Afow i days datvery) 



■ Simon't Hhuc (cart) 

■ Pm^peed 64 

■ Oidord Pa»c«l M 

■ OJdofd Pascal 4lape) 

■ JelPsck &4 

■ JBlPack (tape) 

■ Supot Pascal &4 

■ AssemblarAnonrtor 64 

■ PowerPlan 64 

■ Practical II 

■ Masler 64 



K*-WI2S.OO 
-OB>«e 34.55 
H«r95 4? -1H 
-BB-M 19.95 
2-3.3 5 
1-1 1 : . 
S9.M 
16.95 
3i.«S 
-B9rS5 

*H 3'S.M 



I Super Basic (04 * 1 20) £4046 

I Super C tB4* 124} 

t SuparSase 129 -Ofte* 

I Superscript 128 

I Script l2d 

j Ci2a Trtcka A Tips {book} 
I SuperBase 64 fWlH 
I SuperBase Siartar S4 -6*65 
I SuperSCripl 64 
I 3^ per Type M 
I Super Typ* (tape) 



S44..B5 
sa a5 
M.9S 
fin 'iii 

43 35 

12.M 
5Ht."?5 
2».9& 

21.95 
16.95 
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■dvtoa If In doubt |HEF Aii\ 
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C-1 S/Plus/4 



Joe Nkhohon 



continues his series 



with a Sound 



Synthesiser for the 0 



16 and Plus/4. 



SOMETIME AGO. IN MY ART- 
icle on sound, I promised to 
explain how to simulate the 
attack, decay, sustain and 
release functions of a sound 
synthesiser. At last, tweeked 
and tuned up to perfection, I 
proudly present The Sound 
Synthesiser which incorporates 
not only these functions, but 
also a host of other facilities 
including a second channel 
rests, hand claps, a sound com- 
piler and a waveform editor 

I shall start by explaining the 
similarities to the PLAY 
command presented in the 
article on sound (December 
1985). Like the PLAY command 
it is interrupt driven, meaning 
that the tune can be playing 
while the computer is engaged 
in some other task, playing a 
game or editing a waveform for 
instance. It plays the tune by 
reading along a list of numbers 
held in memory which contain 
the pitch and duration of each 
note, in the sequence that the 
notes will follow. Commands 
such as volume, go to chorus, 
return and turn tune off can 
also be included in the list. 
Pitch values for a range of 
musical notes are given in 
Appendix D of the C-16 User 
Manual on page 173. 

Now for the differences. 
The main feature is WAVE- 
FORM SOUND, It works by 
continuously altering the 
volume of the note once every 
l/50th of a second from a list 
stored in memory. When each 
new note is played, the synth- 
esiser starts at the beginning of 
the table setting the volume to 
the first number. A 1 /50th of a 
second later the synthesiser 
reads the next byte along the 
list and adjusts the volume to 
that number. The process 
continues for the duration of 
the note until a new note is 
played; changing the volume 
of the note from the very 
beginning all the way through 
until it dies away; when the 
process repeats itself. The list 
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can be stored anywhere in 
memory, although the table 
must begin at an address which 
is a multi pie of 256 and must be 
256 bytes long, 

As the volume is in the 
range zero to eight, only nine 
different volume settings are 
allowed. It is still possible, 
however, to make a very 
convincing envelope with 
attack, decay sustain and 
release as shown in the diagram 
below. The attack part of the 
waveform covers the rise in 
volume from zero to peak 
value. The fall in volume after 
the peak is called the decay. 
The midrange volume is called 
the sustain level and the final 
fall in volume from sustain to 
zero is called the release. 

The parameters attack, 
decay, sustain and release can 
be applied to any sound. Con- 



sider the sound of a piano for 
instance. When the string is 
first struck by the hammer, the 
volume of the note quickly 
rises to peak level, therefore its 
attack rate is quite high. The 
volume then quickly falls to a 
lower value signifying a high 
decay rate and then sustains at 
this level for a while before 
dying away fairly slowly, which 
means it has a low release rate. 
The sound of a clarinet or other 
woodwind instrument is very 
different however. In this case 
the volume of the note rises 
slowly to peak value meaning it 
has a low attack rate. The 
volume then sustains for the 
remainder of the note and is 
followed by a rapid release. 

The Sound Synthesiser 
allows more than one wave- 
form to be in memory at the 
same time and also has the 



facility to switch from one 
waveform to another while the 
tune is being played thus sim- 
ulating different instruments. 
Memory has been set aside for 
two waveforms, although more 
can be accommodated by 
raising the start of the Basic 
area or lowering the top of this 
area to create extra space for 
waveform sound (as explained 
in the September 1985 issue of 
Your Commodore). Lowering 
the top of Basic by IK would 
reserve enough space for four 
more waveforms, A waveform 
editor program and a demon- 
stration waveform have also 
been included. 

The other main difference 
between this program and the 
PLAV command is the facility to 
play tunes using both channels, 
This enables harmonies and 
backings to be put into the 
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tune, along with such sounds a& 
hand claps and steam trains if 
channel two is set to noisel 
Channel one still sets the pace 
of the tune, with the backing 
note in channel two being 
changed at various points 
along the tune. This will be 
demonstrated in a tune called 
Joe's theme (!) later on. 

As well as playing backing 
notes channel two can add a 
chorus effect to the sound. This 
is done by taking the pitch of 
ihe note in channel one and 
playing exactly the same pitch 
in channel two but with a small 
constani value added to the 
pitch. This has the effect of Two 
notes in 'harmony' by using an 
effect known as beating. This 
effect was used to play Cod 
Save theQueen in demoone of 
my article on graphics modes 
published in ihe March 1986 
issue, A command to create this 
effect is provided in the 
synthesiser. Channel two also 
has the facility for turning itself 
off automatically a preset time 
after it is turned on instead of 
carrying on indefinitely - 
useful for hand claps, etc. 

The other addition to the 
PLAY command is the facility 
for rests and pauses. In the 
PLAY command all notes 
tended to merge together and 
there was no facility for pausing 
the tune for rests etc. The 
Synthesiser allows the tune to 
pause for 1/50th second right 
up to 20 minules. It also allows 
the second (backing) channel 
to either continue while the 
first channel pauses or fur both 
channels to be turned off for 
the duration of the pause with 
the backing being turned on 
again after the pause. 

The Synthesiser 

The new assembly language is 
shown in Figure 2, If you wish 
to type it straight in use my 
'C-16 Assembler' published in 
the June 1985 issue of Your 
Commodore. To date this isthe 
only text assembler available 
for the C-16. If you don't have 
the assembler, the machine 
code is shown in DATA state- 
ments in Figure 3 complete 
with a suitable loader. The 
synthesiser code starts at 
address 40% ($1000 hex) and 
occupies 512 bytes. The start of 
Basic should therefore be 
moved up before loading the 
assembler or the machine 



Figure 2 

PROGRAM: SYNTMTEXT 



10000 ; THE SOUND SYNTHESISER 

10010 \iZ)im JOE NICHOLSON 

10020 ; 

10050 ORG 11000 

10100 j TURN ON 

10110 iON 5EI 

10120 LDA 1*42 

1#130 STA 1314 

10140 LDA 1110 

10150 STA (315 

10160 LDA #120 

10170 STA 107 

10180 LDA 0100 

10190 STA tDA 

10200 STA IE0 

10210 STftlEl 

10220 STA IDC 

10230 STA IDD 

10240 LDA IFF11 

10250 AND H7F 

10260 STA IFF 11 

10270 LDA ttFE 

10280 STA I04FC 

10290 STA I04FE 

10300 CL1 

10311 m 

10390 ; 

10400 ; TURK OFF 

10410 I OF se: 

10420 LDA IFF 1 1 

10430 AND II8F 

10440 STA 1FF11 

10450 LDA t«0E 

10460 STA 10314 

10470 LDAtfCE 

10490 STA 10315 

10490 CLI 

10510 RTS 

10590 ; 

10400 j PL AY CONTROL 

10&10 ORE 11042 

10700 :PL LDA 404FC 

10710 CUP IIFF 

10720 BED R:P2 

10730 :P5 LDA tE0 

10740 m R: EX 

10750 LDY 10 

10760 LDA IFF 11 

10770 AND I1F0 
107S0 OR ft (IDE),Y 
10790 STA IFF 11 
10900 INC IDE 
10610 :EX JHP ICE0E 



10890 
10900 
10910 
10920 
10930 
10940 

10950 

10960 
11970 
10980 
10990 
11000 
11010 

11020 

11030 

11040 

11050 

11060 

11070 

11080 

11090 

11100 

11110 

11190 

11200 

11210 

11220 

11231 

11240 

11250 

11260 

11264 

11265 

11270 

11290 

11290 

11300 

11310 

11320 

11330 

11310 

11350 

U36§ 

11370 

11390 

11390 

11395 

11400 

11410 

11420 

11430 

11440 

11450 

11460 

11470 

11475 

114B0 



; 

[READ NEXT THREE BYTES 

:P2 LDA IE! 

BES R:PK 

LDA IFF11 

ORA IE1 

STA IFF 11 

LDA H00 

STA IE1 

:PK LDY H00 

LDE 1100 

: P3 LDA (*D0),Y 

STA 192, I 

1NY 

INK 

TKA 

CNF 13 
BNE R:P3 
LDA IDA 
ADC 02 
STA ID* 
3CC R:P4 
INC |D1 

[off 

:P4 LDA ID2 
CNF tlFF 
BNE RtP6 
JSR i OF 
:PI CLC 
BCt R e E3C 

Ieosub 

sP6 CMP IIFE 
BNE RiP7 
LDA ID0 
STA IDS 
LDA tD3 
STA ID0 
LDA fDl 
STA ID6 
LDA *D4 
STA fDl 
CLC 

8CC RiP2 

■ 

; RETURN 
iP7 CKP IfFD 
BNE R:PB 
LDA IDS 
STA ID0 
LDA $D6 
STA 131 
CLC 

BCC R;P2 

i 

; VOLUME 



11491 
11500 
11510 
11520 
11525 
11530 
11540 
11550 
11590 
11600 
11610 
11620 
11 630 
11440 
11650 
11660 
11670 
U6B0 
11690 
11700 
U710 
11790 

nm 

11810 

11820 

11830 

11840 

11050 

11B60 

11070 

U8B0 

11990 

11900 

11990 

12000 

12110 

12020 

12030 

12040 

12050 

12060 

12070 

12090 

12100 

12110 

12120 

12130 

12140 

12150 

12160 

12170 

12180 

12190 

12200 

12210 

12220 

12230 



:P8 CNP IIFC 
BNE RiP9 
LDA IFfll 
AND 1240 
ORA ID3 
STA IFFU 
iPM CLC 
BCC RsP2 

>N0ISE/RUSIC 2ND CHANNEL 

:P9 CMP ItfB 

BNE R:PA 

LDA ID3 

CNP 02 

BEQ R: HI 

LDA #140 

BNE R:N0 

iNl LDA U20 

:M STA 117 

CLC 

BCC RjPM 

| SET 2ND CHANNEL DEVIATION 

iPA WP UFA 

BNE RsPB 

LDA ID3 

STA tD6 

LDA ID4 

STA ID9 

QRft ID 3 

STA IDA 

BNE RiPH 

BEQ RiPR 
■ 

; OFF CHANNEL 2 
sPB CNP IIF9 
BNE R:PC 
iFR LDA IFfll 
AND II9F 
STA tFFll 
CLC 

iPO BCC R:PK 
\ 

I SECOND CHANNEL 
:PC CNP #*F8 
BNE RsPD 
LDA ID3 
STA IFF0F 
LDA >D4 
STA IFF10 
LDA IDC 
STA I04FD 
LDA IDD 
STA I04FF 
LDA IFF11 
AND I49F 
ORA ID7 



12240 


STA IFFll 


12910 


:PH 


CUP MF3 


12258 


SHE RiPH 


12928 


BNE 


RiPJ 


12298 


* 


12938 


LDA 


IFF 11 


12308 


t SET INTERVAL FQJl 


12948 


TAX 




12310 


: SECOND CHANNEL 


12958 


AND 


1160 


12321 


; pn CMP HF7 

r 1 Ir wl 1 1 TP T 1 


12968 


STA 


l£l 


; 23 30 


SHE R;PE 


12978 


TIA 




12341 


LDA ID3 


12988 


AND 


II6F 


12350 


Dftft ID4 


12990 


STA 


IFF 11 


12368 


BHE R:N2 


13800 


LDA 


tD3 


12378 


STA IDC 


13810 


EOR 


HFF 


12388 


STfl IDD 


13020 


STA 


I84FC 


12398 


BEB R: PC 


13830 


LDA 


ID4 


12488 


:N2 LDA $D3 


13840 


EDR 


tfFF 


12418 


EOR HFF 


13850 


STA 


I04FE 


12428 


STA f DC 


13860 


JHP 


ICE0E 


12438 


LDA fD4 

LMn TIT™ 


13871 


i 




12448 


EOR HFF 


13108 


S MAIN ROUTINE 


12450 


STA IDD 


13110 


:PJ 


EOR HFF 


12468 


CLC 


13120 


STA 


I04FC 


12478 


BCC R:P0 


13130 


LDA 


IIFF 


12498 


■ 


13140 


STA 


I84FE 


12580 


; ON/OFF WAVEFORM SOUND 


13150 


LDA 


40 


12511 


;PE CUP HFi 


13160 


STA 


IDE 


12521 


BNE RiPF 


13170 


LDA 


ID3 


1253* 


LDA *C3 


13180 


OR A 


*D4 


1254$ 


STA tE0 


13190 


BNE 


Re PP 


12558 


BNE Ft:N3 


13200 


LDA 


tFFU 


12568 


LDA IFFll 


13210 


AND 


HEF 


12578 


AND HF0 


13220 


STA 


IFFll 


12588 


ORA IDS 


13230 


iPO 


JHP ICE0E 


12590 


STA IFF 11 


13250 


:PP 


LDA IFF12 


12601 


CLC 


13260 


AND 


1252 


12610 


ICC RjPO 


13270 


QRA 


ID4 


12628 


iN3 LDA IFFll 


1328* 


STA 


IFF12 


12638 


AND H0F 


13298 


LDA 


103 


12640 


STA IDE 


13300 


STA 


IFF0E 


12650 


CLC 


13310 


LDA 


IFFll 


12660 


BCC R:PD 


13320 


ORA 


H10 


12690 


f 


13330 


STA 


IFFtl 


12780 


j SET NAVE NUMBER 

■ ■ ™ Trm TP fa P1U 1 4AT fa 1 1 


13340 


LDA 


IDA 


12710 


iPF CMP HF5 

W f 1 vr 1 1 ■ T ■ v 


13350 


BED 


RiPB 


12720 


BNE ft: PS 

■P lib H 1 m r W 


13360 


CLC 




12730 


LDA IB3 


13371 


LDA 


193 


12740 


5TA IDF 


133S8 


ADC 


IDS 


12750 


CLC 


133?8 


STA 


IFF0F 


12768 


BCC RjPO 


13488 


LDA 


ID4 


12790 


■ 

1 


13418 


ADC 


m 


12880 


:JUNP TQ USER ROUTINE 


13428 


STA 


IFF10 


12811 


:PE CAP HF4 


13430 


LDA 


tFFll 


12828 


BNE R s P H 


13448 


ORA 


ID7 


12838 


JSR :N4 


13458 


STA 


IFF11 


12B48 


CLC 


13460 


LDA 


IDC 


32658 


BCC RsPQ 


13478 


STA 


I04FD 


12B60 


sN4 JHP (103} 


13488 


LDA 


IDD 


I2ETCI 


f 


13498 


STA 


H4FF 


im§ 


i PAUSE ALL 


13508 


JHP 


ICE0£ 



moved up by 2K, space for two 
waveforms and IK of tune is 
also set up - see Figure 4. 1K is 
usually enough for a tune of 
reasonable length as on ly three 
bytes are used per note or 
command. If more space is re- 
quired for the tune then the 
start of Basic should be moved 
up accordingly. 

To move the start of Basic 
up by 2K enter the following: 

POKE 6144,0: POKE 44,24: NEW 

lc> move start of Basic up by X 
Kbytes enter: 

POKE 4096+X*1Q24,0:POKE 
44,16+X*4:NEW 

The tune does not have to 
start at address 5120, in fact the 
tune can start anywhere and 
any number of different tunes 
can be stored anywhere in 
memory to the limit of the 
space available. 

When the Synthesiser 
assembly text or DATA 
statements have been typed in, 
SAVE it before going l any 
further as you may have made a 
mistake. Run the assembler/ 
loader and correct any errors. 
Then SAVE the machine code 
by entering the monitor, he, 
MONITOR + return. Then type 
in: S'name'\01 ,1000,1200 to 
save the Synthesiser; S"name", 
01,1200,1400 to save the 
waveforms, where S signifies 
SAVE,01 signifies tape and 
$1000 and $1200 are the start 
address and the (end 
address+IK 



The Program in Detail 

Lines 10100-10310 turn the syn- 
thesiser on. This redirects the 
keyboard interrupt which is 
called 50 times/sec, to enter 
the Synthesiser at line 10700. It 
also sets up the system variables 
to start playing the tune. Before 
this command is caSled the 
registers $D0 and $D1 (208 and 
209) should be set to contain 
the low and high byte respect- 
ively of the start of the tune. If 
the Synthesiser and the tune 
are in their normal positions 
type: 

POKE 208,0: POKE 209,20: SYS 
4096 to start the tune. 

Lines 10400-105O0 tu rn the Syn- 
thesiser off. This, redirects the 
keyboard interrupt vector to its 



normal value of SCEOE located 
in the ROM. Turning the Syn- 
thesiser on again means that it 
carries on from where it left off. 
Lines 10600-10700 is where the 
program is called every 1/50(h 
second. If it is time for a new 
note, it will jump to line 10910. 
Lines 10730-lOAOO control the 
envelope of the sound, 
assuming waveform sound has 
been selected. Line 10810 
jumps back into the keyboard 
routine. 

Lines 10900-11110 read the next 
command (three bytes) into 
memory and move the pointer 
on three bytes. 

If the first byte of the three 
is between $00 and $F3 it treats 
this byte as a duration and the 
next two bytes as a pitch for a 
note in channel one. If the first 
byte is between $F4 and $FF 
however, it treats the three 
bytes as a command and acts 
upon each as follows: 
Lines 1120CM1260 Command: 
OFF. 

First byte $FF; compiler 

command OF; format OF,0 

This turns the tune off. Make 

sure to include one of these at 

the end of the tune. 

Lines 11265-11380 Command: 

GOSUB/GOTO 

First byte $FE; compiler 

command GO; format 

GOJabel 

This is a type of GOSUB instruc- 
tion. It jumps to the address 
stored in the frequency bytes. 
It also stores the old pointer 
address in memory allowing 
the tune to return, so that tunes 
can save subroutines although 
nesting is not allowed. This can 
also be used as a GOTO 
instruction. 

Lines 11390-11470 Command: 
RETURN 

First byte $FD; compiler 
command RE; format RE,0 
This is the return instruction 
which makes the Synthesiser 
resume after the last GOSUB 
instruction. As with a number 
of these instructions the fre- 
quency bytes must be present 
but are not used. They can have 
any value, preferably zero. 
Lines 11400-11580 Command: 
VOLUME 

First byte $FC; Compiler 
command VO; Format V O F 0-8 
This can be used to change the 
volume inside a tune. 
Lines 11600-11700 Command; 
Set 2nd channel 
First byte $FB; Compiler 
command S2; format S2,2 or 3 
The second channel can be 
either noise or music; two for 
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music and three for noise as per 
C-16 SOUND command, 
lines 11JMHM19O0 Command: 
2nd channel deviation 
First byte $FA; Compiler 
command DE; format DE,0- 
65535 

This sets the deviation of the 
second channel for chorusing 
as explained earlier. Any value 
greater than zero will make the 
second channel play automati- 
cally with channel one, adding 
the deviation to the pitch. Note 
that the command DE,1 adds 
one to the pilch and that 
DE r 5535 subtracts one from the 
pitch. Large values such as DE.,40 
make channel two sound com- 
pletely off key. DE,0 turns off 
deviation mode. 
Lines 12(100-12070 Command: 
OFF 2nd channel 
First byte $F9; Compiler 
command X2; format X2.0 
Switches channel two off, 
lines 12100-12350 Command; 
2nd channel 

First byte $FB; Compiler 
command C2; format C2,0- 
1024 

This turns the second channel 
on using the pitch in the two 
frequency bytes and the 
duration set up by the Set 
Interval command. 
Lines 12300-12470 Command; 
Set Interval 

First byte $F7; Compiler 
command SI; format SI, 0-65535 
This alters the duration of the 
second channel in 1/50th 
second steps. The command 
SI ,0 will make channel two play 
continuously after being 
turned on. 

Lines 12500-12660 Command; 
ON/OFF waveform sound 
First byte $F6; Compiler 
command TW; formal TW,0 or 
1 

Turns waveform sound on/off. 
TW,1 turns on waveform sound 
storing the previous volume 
level. TW,0 turns off waveform 
sound restoring volume level. 
Lines 1270^12760 Command: 
Set wave number 
First byte JF5; Compiler 
command WA; format WA,0- 
255 

This selects the waveform to be 
used. The number is the high 
byte of the start address of the 
waveform. In its normal mode 
there are two waveforms 
available: WA,18 and WA,19, 
Lines 12*00- 12860 Command: 
Jump to user routine 
First byte $F4; Compiler 
command MC P format MC,0- 
255 




lftN A=40?friDD:S=l:FaRC=lTOl 
= : REftDD : JFD s -lTHENf^INT B OK.." 
I END 

B=B+D:PDKEA,D:A=At1 j NEX 
T: READS; 

10323 IFDOBTHENFRINT " DATA £3 

ROK IN LINE";PEEK;i3>+2^tPEE 

KtMhENBiELSELQQP 

Zfffl DATA 12M69 t 6fc,l4I,2B, 

3, 169, 1 A, 141,21,3, 149,32, 133, 

215,149, 1587 

2dM DATA 1,133,218,133,224, 

133,225,133,220, 133, 221, 173,1 

7,255,41,127, 23Bi 

2H2I DATA 141, 17,255, 149,234 

,141,252,4,141,234,4,88,94,12 

0,173,17, 2126 

20630 DATA 255,41,143,141,17, 
255,149,14,141,21,3, 169,214,1 
41,21,3, 1739 

21141 LATA B8 t 96,i73,252,4,2f 
1,255,245,21,145,224,240,14,1 
M,f t tt3, 2304 

20050 DATA 17,255,41,240,17,2 
22,141, 17,255, 233,222,76,14, 2 
'06,165,225, 2343 
2N4I DATA 240,12,!7:,;7,255, 
5,223,141,17,255, 149,0,133,22 
5,141,1, 2327 

20070 DATA 162,0, 177, 2*8,14?, 
210, 200, 23;, 136,201,;, 2«B,245 
,165,208,115, 2611 



This allows the user to create 
extra commands for the synth- 
esiser. One of its most impor- 
tant uses would be to call a 
routine which sets a flag to 
signify when the tune has 
reached that poini so that an 
arcade game could be 
synchronised with the tune. At 
the start of each routine make 
sure you disable interrupts (SEIJ 
and enable them (CLh at the 
end of the routine. Use RTS to 
return tothe Synthesiser. This is 
the only routine in the 
Synthesiser which cannot be 
easily relocated because of the 
J SIR to a fixed address in line 
12830. 

lines 12800-13060 Command: 
Pause A11 

First byte $F3; Compiler 
comman d FA; format PA,l-255 
This pauses both channels from 



6144 



5120 

4864 
4608 



1024 BYTES 
FOR TUNE 



4096 



2nd WAVEFORM 



1st WAVEFORM 



512 BYTES FOR 
SYNTHESISER 



$1800 



$1400 

SI 300 
$1200 



$1000 



Figure 4: Memory map 



1/50th second to 20 minutes. If 

the backing was on before the 

pause it will be on again after 

the pause. 

Lines 134HHM3500 

This is the main routine for 

notes going to channel one. If 

the deviation is on it also sets 

up channel two. 

The Compiler 



One of the greatest improve- 
ments over the original PLAY 
command routine is the 
inclusion of a special two-pass 
music compiler which greatly 
simplifies the problems of 
composing music. The music 
compiler listing is shown in 
Figure 5, The Hovis advertise- 
ment demo for the PLAY 
command was very difficult to 
write because I had to work out 
the addresses for the GOSUB 
values and look up the 
numbers for commands such as 
Volume, etc. The music 
compiler eliminates the need 
for any of this. COSUBs and 
GOTOs are made much easier 
by the use of labels. The letters 
LA signify that a label is to 
follow and the label follows 
directly after a separating 
comma. Up to 50 labels can be 
used, which should be enough 
for even the longest tune. If 
more arc required however, 



change the number inside the 
DIM statement in line 45010 to 
the desired value. Also, instead 
of having to quote the number 
of the command you want, e,g, 
252 for volume, you simply 
write VO followed by the 
volume number. The compiler, 
when run, will translate the VO 
into 252. Finally there should 
be an END instruction. An 
infinitely repeating beginning 
to Three Blind Mice would 
therefore look like this: 

DATA,LA,START,VO,7 & tart 
label and a volume 7 
command. 

DATA 20,68V0,643,40,596,GO, 
LA.START^END 

Play the notes in channel one 
and then loop back to the label 
called START. Tunes are now so 
much easier to read, write and 
edit that a good deal of enjoy- 
ment should be had in 
composing the tune. 

To compile the tune type 
RUN45000. As the compiler sets 
the pointer to the start of the 
tune, to start the tune playing 
simply type SYS4G96 provided 
the synthesiser is at its normal 
position. To stop the tune type 
SYS4141. It is possible to 
compile the tune to anywhere 
in memory simply by changing 
the value of the variable D in 
line 450OO to the desired value. 



C-1 S/Plus/-* 



Figure 5 



PRQ&RAK: COMPILER 

, — . 



D=0EC i " 1 4W J s 5YS41 41 s P 
DKE208,0:POKE209,INT(D/256) 
45110 DIMAf(50):DINDX(50> 
45020 A«Ss RESTDRE31N0 
45J30 RE A OB*: I FB*- L A " THEN REA 
DBf:At(E}'B«iirctE}*A!E?E+t;60 
TD45030 

45040 I FB *= M E NO H THENGD TtJ4 5108 
45050 READC $ ; I FCt- 1 LA ' THEN RE A 
DC* 

45060 fl=A+3tGOT045i3* 
45100 A=B:REST0RE50000 
45U0 REABBI: I FB§= * END ■ TH ENP R 
INT'OK... "sEND 

45115 I F Bi* " L A 1 THE NRE ADBf i 68 T 
Will 

45120 lFASC(Bt)<65THEN8=VAL(B 
i):6DT«5125 

45122 fl*256- t < INSTR ( 'OFGOftEVO 
S20El2C2SITMAMCPA ll ,5t]+l}/2} 

45123 IFB'255. 5THENPRINTBV? 
INVALID COMMAND": END 



45125 POKEA,B:READCf :IFCS<>"L 
A'THENC-VAL[C$>:6DTD45150 
45130 READS* i FD RF=ITOE i 1 FA* t F 
\ -B • THENODE ( F } : G0TD43 1 50 
45140 NEKTi PR INT* LABEL WQT FO 
UND IN 1 : END 

45150 PDKEA+1 P C-(INT(C/256JI2 
56>:P0KEA*2,lNT(C/256):A*A+3; 
&OTM5110 

20080 DATA 2,133,208,144, 2,2? 

I, 209, l«,21l,2#l, 235,208, 6, 3 
2,45,16, 2066 

20090 DATA 24, 144, 200, 201, 25^ 
1 211, 19, 165, 216, 13 J, 213, 163, 2 

II, 133,208,165, 2451 

20100 DATA 209,133,214,165,21 
2,133,209,24,144,180,201,253, 
206,11,165,213, 2674 
20110 DATA 133,208.165,214,13 
3,209,24, 144,165,201, 252,2*9, 
13, 173, 17,255, 2514 
20120 DATA 41,240,5,211,141,: 
7,255,24,144,148,201,251,208, 
17,165,211, 227? 
20130 DATA 201,2,240,4,169,64 
,2,169,32,131,215,24,144, 
2.201, 2340 



2214& DATA 251,218,16, 115,211 

,133,216,165,212,133,217,5,21 

1,133,218,208, 2701 

20150 DATA 214,240,4,201,249, 

203,11,173,17,255,41,159,141, 

17,255,24, 2209 

20160 DATA 144, 197,2*1,248,20 

& 4 32 , 1 65 ,211, i4l, 15,2 55 , 1 65 , <. 

12,141,14,235, 2606' 

20170 DATA 165,220,141,253,4, 

165,221,14:, 255, 4, 173, 17, 255, 

41,159,5, 221? 

20180 DATA 215,141,17,255,208 

,161, 211 ,247, 218, 27, 163,211,3 

,212,208,6, 2487 

23l9£ DATA 133,220,133,221,24 

§,202,165,211,73,255,133,220, 

165,211,73,255, 2911 

;e20* 3ATA 133,221,24,144,187 

,201,246,208,29,165,211.133,2 

24,208,13,173, 2520 

20210 DATA 17,255,41,240,5,21 

9,141, 17,255,24, 144.165, 173,1 

7,255,41, 2008 

20220 DATft 1!, 133, 219, 24, 144, 
154,201, 245,208,7,165, 211,133 
,223,24,144, 2250 



2023* DATA 143,201,244,208,9, 

32,123,17,24,144,133,106,211, 

3,201,243, 2041 

20240 DATA 208,31,173,17,255, 

170,41,96,133,225,133,41,143, 

141,17,255, 2094 

20250 DATA 165,211,73,255,141 

,252,4,145,212,73,255,141,254 

,4,76,14, 2295 

20260 DATA 206,73,255,141,252 

,4,169,255,141,254,4,169,0,13 

3,222,165, 2443 

20270 DATA 211,5,212,208,11,1 

73,17,255,41,239,141,17,255,7 

6,14,206, 20B1 

20280 DATA 173,18,255,41,252, 

5,212,141,18,255,165,211,141, 

14,255,173, 2329 

20290 DATA 17,255,9,16,141,17 

,255,165,218,240,226,24, 165,2 

11,101,216, 2276 

20300 DATA 141,15,255,165,2;; 

5,5,215,141, 1324 

20310 DATA 17,255,165,220,14: 

,253,4,165,221,141,255,4,76,1 

4,206,255, 2392,-1 « 



Figure 6 

PRDGRftlt: DEHQ TUNES 



45000 Q-DECri400']:5YS4141:P 
DK£208,0:PM209,INT(D/256) 
45010 0lNAf(5J>iDIIffll(5l) 
45020 A=DiRESTDRE50000 
45030 READS*: IFBf='LA'THEHREA 
]3BtjAttEl=Bt!DX(El=A!E=E+li6D 
TQ45030 

45040 IFlt= ,t END H MNBOTP45100 
<5050 REAOCMFC^'LA'TfOREA 
DC* 

45060 A=A+3:GOTD4503B 
45100 A-D:RESTDRE50000 
45110 REftBS*s IFB*^ H £ND-THENPft 
INT "OK,,,": END 

45115 I FB $= N L A " THE NftEA DB< : GOT 
045110 

45120 IFASC(B1X65THENB=VAL(B 
*h60TQ43l25 

45122 B=256-(( INSTR t'DFSDREVD 
52DEI2C2SITNNAMCPA",BO*l)/2l 

45123 IFB-255. 5THENPRINTBI"? 
INVALID COWHANDS END 

45125 P0KEA,8!ftEADC<iIFC*O M l 
A"TKENC=VAKC!):GQTO45150 



45130 READB§iFQRF=0TOE:IFAf(F 
]=B*THENC=OXfF>:GDTQ45150 
45140 NEXT: PR I NT "LABEL NOT FO 

UND IK 1 ; EST 

45150 PDXEA*l,[>(INT(C/256Jt2 
56)!P0JCEA+2,I«TCC/256}:A=A+3: 
50TO4511? 

50000 REM DEMONSTRATION TUNES 
50002 REM 

53003 REM MEN THE SAINTS GD 
MARCHING IN 
50004 REN 

50035 DATALA,3TART,DE,0,TU,0, 
VQ,5,SD,LA,SA1NT5,NA,18,TW,1, 
GO, LA, SAINTS, TH,0,CE,F 
50010 PATABfl,LA,SAINTS,T«,l,6 
O,lA,SAINT5,PA,100,GO,LA,JDIS 
THEME 

50100 DATALA,5AIN73, 12,596, 12 

,685,12,704,48,739,12,596,12, 

685,12,704,48,739 

50110 DATA12,596,12,6B5, 12,70 

4,24,739,24,685,24,596,24,685 

,60,643 

50120 DATA12,6B5,12,6BS,12,64 
3,48, 596, 24, 685,24,739, 12,739 
,40,704, 12,6B5,,12,704 
50130 BATA24,739,24,6B5 f 24,59 
6 f 24 i 643,4B,596,RE,0 
50470 REM 



50480 REM JDE*S THEME 
50490 REM 

50500 DATALAJQESTHEME,TW,0, 
Q,7 t DE,2,6D,LA,JDE,I]E,0,6D,L ' 
,JOE,PA,100,GO,LA,HDVIS 
50510 DATALAjJDE, 12,345,30,61 
5, 10,704, 20, 739, [2,169,20,591 
50520 DATAC2,383,30,704,10,7; 
9,20,770,02,262,20,643 
50530 DATAC2,383,30,704,10,7: 
9,20,770,C2,262,20,643 
50540 DATAC2,453,30,739,10,7/ 
0,40,798 

50550 BATAC2 t 453,30,739, 10,77 
0,20,798^2,345,20,685 
50560 DATAC2, 516,30,770, 10,79 
8, 20, 810, PA, 20 

50570 DATAC2,811,20,810,C2,79 
9, 20,798,C2,77i, 30,770 
50580 DATA10,739,30,770,10,7I 
9,10,770 

50590 DATAC2,453,30,739,10,70 
4,10,685,10,643,02,169,40,596 
,RE,0 
50970 REM 

509B0 REM ANTON IN DVORAK'S LA 
RED 

50990 HEM 

£1000 DATALA,HOVI5,X2,0,TH,1, 
6O,LA,LAR61,G0,LA l LARG2,GQ,LA 



,LARG2,G0,LA,LARGl 

51010 DATADE, 2 , BO, Lft, LARG3 , ED 

,LA,LARG2,BO,LA,LARG2,GD,LA,L 

AFGljOF, 1 

51100 DATALA,LARG1,20,685,20, 

739,40,739,20,685,20,643,40,5 

96,20,643,20,685 

51110 DATA20,739,20,6fl5,B0,64 

3,20,6B5,20,739,40,739 

51120 DATA20,6B5,20,643, 40,59 

6,20,643,20,685,20,643 

51110 DA7A20,596 T 80,596,REJ 

51150 DAT A LA, LARG2, 20, 770,20, 

810,40,810,20,796,20,739,40,7 

70 

51160 DATA20,770,20,810,20,79 
8,20,739,80,770,^,0 
51200 DATAEND 
54970 REM 

54980 REM SAMPLE WAVEFORM USE 
D IN DEMO, 
34990 REH 

55000 RESTORE55010iFORAs4608T 

Q4653:READB:POKEA,S:NEn;F0RA 

*4654T04B63:P0KEA,2i NEXT; END 

55010 DATA1, 2,2, 3,4, 4,5, 6,6,7 

,8,8,7,7,6,6,5,5,4,4,4,4,4,4, 

4, 4,4, 4, 4, M, 4,4,4, 4 

55020 DATA3, 3,3, 3,3, 3,3,3, 3,3 



C-1 G/Plus/4 



Figure 6 shows some 
demonstration tunes. Lines 
5000-5020 create a simple 
waveform at address 4608 to 
start you going. Run 55000 
before playing the tunes. The 
demonstrations include such 
immortal classics as the Saints, 
Joe's theme and Dvorak's New 
World Symphony. No imagina- 
tion has been spared here, 
in fact these tunes do to music 
what Rolf Harris's Picture 
Builder did to art. fm sure you 
can do better. 

The Waveform Editor 

The Waveform editor (Figure 7) 
allows the user to create and 
modify waveforms. Run the 
program and enter the 
waveform number (decimal 



high byte of the address of the 
waveform} then type C or E and 
return in response to Create or 
Edit or waveform? If you want 
to create a waveform the list of 
numbers will all be reset to 
zero. If you want to edit a 
waveform all the numbers 
greater than eight will be 
clipped to eight to avoid any 
errors in the operation of the 
Synthesiser. The screen is then 
cleared and thefirst page of the 
waveform is displayed with 
volume settings zero to eight 
on the vertical axis. The cursor 
will flash at the first position of 
the waveform. Move left and 
right using the cursor controls 
and press keys zero to eight to 
set the volume. Page one 
displays the first 80 bytes of the 
waveform. To move to the 
second line of the display press 



cursor down. There are three 
pages to cover 240 bytes of the 
waveform. Moving the cursor 
down off the bottom of the 
page will enter the next page of 
30 bytes. 

There are other functions in 
the editor which help to make 
things simpler, Pressing 
shift/P will start the synthesiser 
playing at the beginning, 
assuming the synthesiser and 
tune are stored at the normal 
positions. If they are at 
different addresses change the 
values of the first two POKEs 
and the SYS in line 20600 
accordingly. 

If a tune is stored which 
turns on waveform sound, bul 
does not select a particular 
waveform, the synthesiser will 
use the waveform which is 
being edited at the time - 



hence any change in the 
waveform will have an immed- 
iate effect and you can set it up 
by ear! 

Other Commands 

Pressing shift/X at any time will 

turn off the tune* 

Pressing shift/R will restart the 

program enabling you to 

change waveforms. 

Pressing Q will quit the editor 

when you are satisfied with the 

waveform. This also sets the last 

16 bytes of the waveform to the 

last value at the end of page 

three. 

Shift W (wipe) will set the 
volume of all values to the right 
of the cursor to the cursor 
value and completes the 
waveform at a constant level. 




im% SCKCLRi PRINT" HAVE 
FORM EDITOR' „' Ic UJCc 
J] :c UHc UHc UHc IWc UJCc 
UHc UHc UHc UlEc UHc UK 
c UJCc Ul" 

2%m INPUT "HAVEFORH NUMBER* ; 
AsB^fttZSiilNFUrCREATE (CI DR 
EDIT (EJ WAVEFORM"; A* 
2fl2f MsIFM-'CTHENFORMT 
DB+255:F0KEC,I:NEKT 
imt IFAK > 'E'THENZf IBf : ELSE 
F0RC=&T0B+255: IFPEEK(C) >STHEM 
PHEC.8 
20040 NEXT 

20100 SCNCLR:F0RC=iT02:PRINr 
C BONN ] IDOHN ] CD0MN1E DDNN ] f DQHN 
3 E DOHN J E DOItN 3 CDDW] E c Site 83 
[c IKc (He (He *Ht IHc I 

He enc enc §:ic &hc enc 
uil tKc enc «nc utc enc 

aiC: 9Jtc IK: BHc IHc IH 
c §Kc !Hc IKc IHc IHc «] 
Cc IHc IHc 8Hc «Kc §Hc 8 
He 8He IHe U'iNEU 
2*21* E=B M D t8f 1 i FQ.RF*( TO 1 ! FO 
R6=0TQ3?iH=te-PEEK(EMitf+6)) 
t40+B+3MtF:PDKEZ04a+H, B2 
20211 POKE30T2+4l > a&iNEXTs HEIT 
20250 PRINTiPRINT'lAVEFORM NU 
MBER "A" ADDRESS *B f "PftSE'D 



+1 

20500 F=P- ( BBf D > 'p 6= C ( B-PEEK ( B 

+F>ni40HMlimF/40iMfl!f>t 

INT(F/4|)I36J)+E 

2*510 POKEF+2048,U5iPQK!3072 

4f ,SA 

20550 GETKEV ft* : P DKE2 04S +F , B 2 

2«56l IFF >0ANDAI= "CLEFT] "THEK 

a *F-:s65TO20BM 

:tZ7t IfP<2I?ANDA*-"tRI6HT] , T 

-;NP^P+1:GDTG20B00 

ZfSfli lFAr= M [UP]"AKDP)3?THEKP 

23590 IFAt= |, [DQWN2"ANDP<200TH 

23400 iFftU'tf P]'THENPOKE208 
, tt= PDKEZEff p Z« s P0KEZ23 j As 5YS40 
W 

20410 IFAI^Cs X] "TKEHSYS4141 
2162* IFAI*'[ 5 R3'TH£NRUK20ff0 

0 

2^30 IFAI= m Cs Hj'THENH=B+PiF 
□R5=H+i TDB+255 : POKES, PEEK (HJ i 
HEIT:6OTD2010i 

20&4I I FA t = ■ D " THEHF ORE *24 1 TQ 2 

55s POKEB+B, PEEK (B+2«)!MEXTsP 
RINVQK./iElfD 

20700 I FM< "t>" ]RAI) H 9*TNEN209 
00 

20710 I F PEE K ( S +F 1 =0T H ENP DKE 30 
72+F,100:PflKE204B+F p l6:ELSEPO 
KE3072*F,32 

20720 POKE{B+P),VAL(ftt; 
20800 G-D : 0= I NT ( P/BBJ : I F5< >DT 
HEN26100JELSE20500 




DESCENDER ROM 

NOW FOB THE MPS-801 , 1 525, GP-100VC, OR MPS-803 

We have redesigned the character set to el low you to print out with 
tru* doscandetrs. Because this is a replacement ROM your printer 
will operate exactly the same as before with no change whatever in 
the way your printer will work with any program you may use. 

E asy installation with no soldering required. Supplied with complete 
instructions. DESCENDER ROM may not fit soma models of the 
1525 r GP10OVC, and MPS 803. Phone or write for details. 

EXAMPLES; ■fJOp^rdV 



£14.95 



PtP 



quickly paragof 



TOOLKIT IV 

1541/1570 DISK UTILITY 

irrcfudvr: DOCTOR V2 - reed and write any track And sector including antra 
and renumbered sectors and tracks, repair damaged sectors, look underneath 
read errors. FORMATTER - l0-seeond format an entire disk or formal any 
individual track or hall-track from o to 41; redaiine any of 30 parameters to 
create or recreate unique disk fovrnals HEADER/QAP EDITOR - decodes and 
displays all header information including of 1 -bytes and header gap, rewrite the 
entire header and header gap: renumber sectors; also edit any sector tail- gap. 
ERROR EDIT - quickly lind and recreate all read errors Including extra and 
renumbered tracks and sectors and haff -tracks from 0 to 41; even recreates 
data under errors and allows you to redefine any necessary parameters. FAST 
DISK COPY - copies a disk in two minutes or less with a single 154V FAST 
FILE COPY - transfers files live times tester than normal, FILE COMPACTOR - 
compacts machine code programs; can compact programs by over 50%< which 
seves disk space and loading time compacted programs run exactly the same 
as the original. DISK LOOK - sort directory; recover tost liles; display file start 
and end addresses; disassemble any lite with standard and undocumented 
opcodes; edit BAM; arid much more DRIVE SPEED TEST, DISK ERASE, CISK 
MON. DISK LOG, BASIC COMP A CTOn/UNCOMPACrOR> 1: FILE MAKER 

+ even more. 

Supplied on disk wrtt? comprehensive instruction manual. For C-64/C- 128. 

Inc Sand 3 A E for 

pfp complete information 



.95 



MPS SOFTWARE (Dept YC) 

36 Alexandra Grove 
London N4 2LF, England 

Ovtnm order* dIHH *M 1 I ,04 
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THE NEW GENERATION OF 
BACKUP METHODS 
IS NOW EVEN BETTER 

WORE FrMAL THAfJ Thf "FJMAi. CAfl WOO. ■ ■ 
THE LAST WORD IN BACKUP rRTHNOLOGY 

£^S*g££^ ; »■ « 71 - - « ™ ». 

« ^«^h f™,„g coidd «t find ™ "n^r TITT ^Jwl^ * £2 C ° 

irit iiiOfb. All cr* I jj rS [ Strftw^re up [n 4[n Mw<n. 1 9&> J 
OPERATING PRCe^E FRAME 

~£zsz. ssrirar^s^r^ tanas? 2 -* 

computer bark k, thr norm* «*, IJCl * wn r ^ Pt^inq RETURN v«n c*wjr (he 

***** Z S^pSSK ^^tocou,^^.^ 

I* 

dUe. TtiU witan win WHid" * J** ^^^1^ ""•ftwiy to*ta™.tt-d 

that ism r 
Be n f loaded iNDrpcNgAMnr or mm utility 



/ 
/ 
/ 



THI N«TNJ«MIJ EAfKW IV«T«M 
Dm JHty «*ht LAltfty n*tcr .1 1 d* I 

•1IH It* rtMM ntuMqy{H &™g luvnT m 
Cumamti, pra^-Am, tyMftig « FOBS for«nfl|H| 

"vrin: ana dm sw wnmhost * iiwr 
*A"cJ -map™** p* iianm/r 
Aw«**te now 
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THE COMPETITION 



f v«-<« TT^.^t 



ui lu n»mj[o ,„ try \' K , 



1 '1 1— 1 n.uw r 
<* *"0 law gmnmd 
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DISC D I SECTOR V4.0 

= f«t#rtlrtfl.rVkJU 



■ IE ■ " I 



TRANS OP" ■»« r 



ONLY E29.95 



of 




l^,**™ , ; "31 u ^ 



1MI 



ONLY £19.95 

15 STftlCrtyfOfiPFIfSOMrtt USE DOMTCOMMK|TWTHAWOF>« 

fuoduct, wrmm ax mm the ^wer cfTiSw 




***** SETS* ^t^^-^ 1 * s 




3M Floppy n^kg 



- EiOCO 



»n* dSCdfiur l^TSr?* '™S 5 r| for M»IHld 




_ "*|W<nf - UWl "' 



ONLY £19.95 



ALL OFFERS SUBJECT TO AVA/LA6ILJTY 



All pi-ices include P«P and VAT. Send cheque, Postal EVESHAM MICROS 
Order or Credit Card No. Credit Card orders accepted BRIDGE STREET, EVESHAM, 
by phone. Callers welcome. Wide range of goods 
stocked. Trade enquiries welcome. European orders 
send price as advertised. Outside Europe £2.00 for air- 
mail. Mail order to Evesham Shop please. 



WORCESTERSHIRE 
Tel: 0386 4 1989 



MICRO CENTRE 

17S4PERSHORE ROAD, 
COTTEHIDGE, BIRMINGHAM. 

Tel: 021 -458 4564 




EXCHANGE 



Part two of our communications program from K Otton and A Adams . 







F3 - Set up Message Screen - 
will provide you with a blank 
screen on which you can pre- 
type a messge or draw one 
using the dots, dashes, stars etc. 
available in ASCII. When you 
have typed the message you 
can then go on tine (F2) from 
Main Menu. When you need to 
send your message just press 
F$. The message can be sent as 
many times as you like. 

F4 enables you to view 
saved screens. When off or on 
line you may re-load a saved 



screen by pressing F4. Vou will 
be asked if you need a 
Directory (disk only) or to enter 
the name which you used to 
save the screens when on line. 
After the screen has loaded you 
will have theoption to print the 
screen or go back to Main 
Menu, 

F5 - Create Board File - is 
like a small data base When 
you have information such as 
name, telephone no., baud 
rate, parity etc. It can be typed 
in and saved as a file. 

F6 is Load/View Board File. 
Follow the Screen Prompts and 



this will load the stored 
information into memory and 
set the Baud Rate etc. ready to 
go on line. 

Loading F7 - Load Saved File 
(Buffer) - allows you ro view or 
print all or some of the file you 
saved when you opened the 
Buffer (F3). This is OK apart 
from the fact that there is no 
error check on this version. 
However, it has proved to be 
pretty reliable on most 
transfers. When the file is 
printing to the screen you can 
stop the scrolling by using the 
space bar. Pressing the bar 



again will re-start output. Vou 
cannot stop the output to the 
printer once it has started. 
Again, hitting the back arrow 
will return to Main Menu. 

Macro 

Macro, or answer back as some 
people might know it, is an 
automatic demand to identify 
the caller. The host computer 
will send a control character 
which will make your 
computer send the required 
information. Not all Boards use 
this Function and not all Boards 



232* DAT ft 32,32,32,32,32,32, 
32,54,32,66, 9,2MM6,46, 
44,562 

2330 DATA 46,46,46,46,46,46, 

46,46,70,33,32,32,32,32, 

32,42,493 
2340 DATA 42,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,53,543 
2350 DATA 32,66,9,20,19,46, 

46,46,46,46,46,46,46,46, 

46,46,652 
2360 DATA 70,55,32,32,32,32, 

32,42,42,32,32,32,32,32, 

32,32,593 



2370 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,32,512 
2380 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,42,522 
2390 -DATA 42,32,32,83,20,15, 

16, 32,66, 9,20,19, 32, 32, 32, 
32,514 

2400 DATA 32,32,32,32,32,32, 
32,32,32,32,32,32,32,32, 



TT 7T P|' 



2410 DATA 32,32,32,32,32,32, 

32,42,42,32,32,32,32,32, 

32,32,532 
2420 DATA 32,32,32,32,32,32, 

32,49,32,83,28,15,16,32, 

66,9,546 



2430 DATA 20,19,46,46,46,46, 

46,46,70,49,32,32,32,32, 

32,42,636 
2440 DATA 42,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32 , 50 , 540 
2450 DATA 32,63,20,15,16,32, 

66,9,20,19,46,46,46,46,46, 

46,58B 

2460 DATA 70,51,32,32,32,32, 

32,42,42,32,32,32,32,32, 

32,32,5B9 
2470 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,32,512 
24B0 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,42,522 



2490 DATA 42,32,32,68,5,6,1, 
21,12,20,32,20,15,32,32, 
51,421 

2530 DATA 48,48,47,56,47,49, 

46,46,44,46,46,46,46,46, 

46,46,755 
2510 DATA 70,55,32,32,32,32, 

32,42,42,32,32,32,32,32, 

32,32,593 
2520 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,32,512 
2530 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,42,522 
2540 DATA 42,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,32,522 



2550 DATA 52,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,32,512 
2560 DAT ft 32,32,32,32,32,32, 

32,42, <2, 32, 32,32,32,32, 

32,32,532 
257* DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,32,512 
2580 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,42,522 
im DATA 42,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,32,S22 
2&00 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,32,512 
26 10 DATA 32,32,32,32,32,32, 

32,42,42,32,32,32,32,32, 

32,32,532 
2620 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,32,512 
2630 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,42,522 
2640 DATA 42,42,42,42,42,42, 

42,42,42,42,42,42,42,42, 
42,42,672 
2450 DATA 42,42,42,42,42,42, 
42,42,42,42,42,42,42,42, 
42,42,672 
2660 DATA 42,42,42,42,42,42, 

42,42,70,0,0,0, M»iB,l, 
424 

2670 DATA 70,0,0,0, 0,0, 16,0, 

70,0,0,0,0,0,18,0,17^ 
26B0 DATA 42,42,42,42,42,42, 

42,42,42,42,42,42,42,42, 

42,42,672 
2t90 DATA 42,42,42,42,42,42, 

42,42,42,42,42,42,42,42, 

42,42,672 
2700 DATA 42,42,42,42,42,42, 

42,42,42,32,32,32,32,32, 

32,32,602 
2710 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32. 

32, 32, 512 
2720 DATA 32,32,32,32,32,32, 

32,32*32,32,32,32,32,32, 

32 42 522 
2730 DATA 42,62,32,72,1,14,4, 

32,83,8,1,11,9,14,7,32,424 
2740 DATA 32,32,32,32,32,32, 
32,32,32,32,32,32, 

32,32,512 
2750 DATA 32,32,32,32,32,32, 

32,42,42,32,32,32,32,32, 



32,32,532 
2760 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,32,512 
2770 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,42,522 
27B0 DATA 42,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,51,541 
2790 DATA 32,76,9,14,5,46,46, 

46,46,46,46,44,46,46,46, 

46,642 

2800 DATA 70,49,32,32,32,32, 

32,42,42,32,32,32,32,32, 

32,32,587 
2S10 DATA 32,32,32,32,32,32, 

32,88,15,14,47,88,15,6,6, 

44,549 

2B20 DATA 44,44,46,46,46,46, 

44,44,70,51,32,32,32,32, 

32,42,491 
2830 DATA 42,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,32,522 
2840 DATA 32,0,170,0,170,0, 

170,0,170,0,170,0,170,0, 

170,0,1222 
4000 PRINT" [CLEAR ]NEkT 

sPRINT'CDONNl] 

LOAD' +rjHRl 04) + "COMMS BEN 

1005 REM tt CHANGE , 

B IN ABOVE LINE TD , 1 IF 
YDU AftE USIN& TAPE II 
4010 PftJNT-CDQWMMN" 
4020 POKE 631, 13: POKE 432,13 
sPDKE 633,13:PQKE 190,3 
: PR I MT" [HQME3 ff 




2000 FOR 1=0 TO 17*1 CX*0 
l FOR D=0 TO ISifiEAD A 
:CX=CX^:POKE 9472+Ltl6+D s 
A: NEST D 

2010 READ A: IF AOCI THEN PR 
INT M ERROR IN LINE": 
2040* (Ltl0is STOP 

2ff20 NEXT L 

2040 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,32,512 
2050 DATA 32,32,32,32,32,32, 

32,42,42,32,32,32,32,32, 

32,32,532 
2040 DATA 32,32,32,32,32, 32, 

32,32,32,32,32,32,32,32, 

32,32,512 
2070 DATA 32,32,32,32,32,32, 



32 , 32 , 32, 3^,32, 32 , 32 , 32, 
32,42,522 - 
2080 DATA 42,32,32,80,1,18,9, 
20,25,32,32,32,32,32,32, 
32,483 

2090 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,32,512 
2100 DATA 32,32,32,32,32,32, 

32,42,42,32,32,32,32,32, 

32,32,532 
2110 DATA 32,32,32,32,32,32, 

32,78,15,14,5,46,46,46,46, 

46, 566 

2120 DATA 44,46,44,44,46,46, 

44,46,70,49,32,32,32,32, 

32,42,489 
2130 DATA 42,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,79,569 
2140 DATA 4,4,46,44,46,44,46, 

46,46,46,44,46,46,46,46, 

46,652 

2150 DATA 70,50,32,32,32,32, 

32,42,42,32,32,32,32,32, 

32,32,588 
2160 DATA 32,32,32,32,32,32, 

32,69,22,5,14,44,46,46,46, 

46,564 

2170 DATA 46,44,44,46,46,46, 

46,46,70,51,32,32,32,32, 

32,42,691 
2180 DATA 42,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,78,569 
2190 DATA 15,14,5,40,13,1,18, 

11,41,46,46,46,46,46,44, 

46,480 

2200 DATA 70,52,32,32,32,32, 

32,42,42,32,32,32,32,32, 

32,32,590 
2210 DATA 32,32,32,32,32,32, 

32,78,15,14,5,40,19,16,1, 

3,415 

2220 DATA 5,41,46,46,44,46, 

46,46,70,53,32,32,32,32, 

32,42,647 
2230 DATA 42,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,32,522 
2240 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,32,512 
2250 DATA 32,32,32,32,32,32, 

32,42,42,32,32,68,21,14, 

12,5,494 
2260 DATA 24,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,32,504 



use the same for mat. When you 
log on to a particular Board, it 
will tell you if this function is 
available and in what format. 



Getting it all in 

There are nine different parts 
to the Telecom program. Enter 
all parts separately and save on 
to disk or tape. If you are using 
tape then you do not need the 
boot generator program also, if 
you are using tape make sure 
that you make all the changes 
as indicated in the REM 
statements. Cassette users 
should save the programs 
COMMS CEN1 to 5 on the 
same cassette one after the 
other. 

When you have entered 
and SAVEd ail parts then LOAD 
and RUN the BASIC MOVE 
program. 

Now LOAD COMMS 
GENV and RUN. This will auto- 
matically LOAD i n parts 2 to 5 as 
needed. If you are using 
cassette then place a new 
cassette in the unit as soon as 
part 5 has finished loading. 
When 'COMMS GEN5' has 
finished LOADing it will 5AVE 
'ITELCOM/vl' to tape or disk. 

Next switch off and on your 
machine and LOAD J COMMS 
GEN6' and RUN. This will 
LOAD part 7 when needed. 
Cassette users should place the 
cassette that contains 
f 1TELCOM/VV in the unit as 
soon as part 7 has loaded. Part 7 
will SAVE '2TELCOM/VV to 
tape or disk when finished. 

You should now have two 
programs '1TELCOM/V1' and 
'2TELCOM/VV these are the 
complete program. In future if 
you want to use the program 
simply type: 

LOAD "1TELCOM/V1",8/t 
LOAD "2TELCOM/V1",8/l 

SYS 52224 

and the program will start. If 
you are using tape then change 
the ,8,1 in the above lines to 
1 1 

Disk users have the added 
advantage of an auto boot 
program. LOAD and RUN the 
BOOT GENERATOR program 
and COMMS BOOT will be 
saved to your disk. In future to 
use the program type LOAD 
"COMMS BOOT"jS,1 and the 
program will auto run. 



2270 DATA 32,32,32, 32,32,32, 

32,32,32,32,32,32,32,32, 

32,42,522 
2290 DATA 42,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32*70,540 
229? DATA 21,12,12,46,46,44, 

46,46,46, 44 , 44 , 46 , 46 , 44 , 

46,46,643 
2300 DATA 71,4?, 32, 32,32,32, 

32,42, 42,32,32,32,32, 32, 

32 , 32 , 597 
2311 DATA 32,32,32,32,31,32, 

32,72,1,12,6,44,46,46,46, 

46,54? 

2320 DATA 46,44,44,44,46,46, 

46,46,70,51,32,32,32,32, 

32,42,6?! 
2330 DATA 42,32,32,32,32,32. 

32,32,32,32,32,32,32,32, 

32,32,522 
2340 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,32,512 
2350 DATA 32,32,32,32,32,32, 

32,42,42,32,32,68,5,6,1, 

21,473 

2360 DATA 12,20,32,20,15,32, 
51,76,9,14,5,47,70,21,12, 
12,448 

2370 DATA 47,78,15,14,5,46, 

46,46,70,55,32,32,32,32, 

32,42,624 
23B0 DATA 42,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,32,522 
2390 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,32,512 
2400 DATA 32,32,32,32,32,32, 

32,42,42,32,32,32,32,32, 

v L j Ji | *jj J. 

2410 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,32,512 
2420 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,42,522 
2430 DATA 42,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,32,522 
2440 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,32,512 
2450 DATA 32,32,32,32,32,32, 

32,42,42,32,32,32,32,32, 

32,32,532 
2460 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32, 32,512 



2470 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,42,522 
2430 DATA 42,42,42,42,42,42, 

42,42,42,42,42,42,42,42, 

42,42,672 
2490 DATA 42,42,42,42,42,42, 

42,42,42,42,42,42,42,42, 

42,42,672 
2500 DATA 42,42,42,42,42,42, 

42,42,70,0,0,0,0,0,18,0, 

424 

2510 DATA 70,0,0,0,0,0,16,4, 

70,0,0,0,0,0,13,0,176 
2520 DATA 42,42,42,42,42,42, 

42,42,42,42,42,42,42,42, 

42,42,672 
2530 DATA 42,42,42,42,42,42, 

42,42,42,42,42,42,42,42, 

42,42,672 
2540 DATA 42,42,42,42,42,42, 



42,42,12,32,32,32,32,32, 

32,32,402 
2550 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,32,512 
2560 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,42,522 
2570 DATA 42,32,32,32,32,32, 

32,32,32,32,32,32,42,42, 

32,77,587 
2580 DATA 1,9,14,32,77,5,14, 

21,32,42,42,32,32,32,32, 

32,449 

2590 DATA 32,32,32,32,32,32, 

32,42,42,32,32,32,32,32, 

32,32,532 
2600 DATA 32,32,32,32,32,32, 

32,45,45,45,45,32,45,45, 

45,45,6U 
2610 DATA 32,32,32,32,32,32, 



32,32,32,32,32,32,32,32, 
32,42,522 
2620 DATA 42, 32,32,32, 7#, 21, 
14,3,20,9,15,14,32,32,32, 
32,432 

2630 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,32,512 
2640 DATA 32,75,5,25,32,32, 

32,42,42,32,32,32,32,32, 

32,32,541 
2650 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32 32 512 
2660 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32 42 522 
2670 DATA 42,32,32,32,32,40, 

49, 62, 32, 32, 93, 5, 20, 32, 90, 

18,643 



2690 DATA 15,20,15,3,15,12, 
40,66,1,21,4,82,1,20,5,41, 
361 

2690 DATA 46,70,49,32,32,32, 

32,42,12,32,32,32,32,32, 

32,32,601 
2700 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,32,512 
2710 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,42,522 
2720 DATA 42,32,32,32,32,60, 

50,42,32,32,71,15,32,84, 

15 32,455 
2730 DATA 84,5,19,13,9,14,1, 

12,32,77,15,4,5,46,46,46, 

427 

2741 DATA 46,70,50,32,32,32, 
32,42,42,32,32,32,32,32, 
32,32,602 

2750 DATA 32,32,32,32,32,32, 



3jl ,32, 32, 32, 32, 32, 32, 32, 

32,32,512 
2760 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,42,522 
2770 DATA 42,32,32,32,32,60, 

51,62,32,32,83,5,20,32,85, 

16,648 

2790 DATA 32,77,5,19,19,1,7, 

5,32,83,3, IB, 5, 5,14,44, 37 
2790 DATA 46,70,51,32,32,32, 

32,42,42,32,32,32,32,32, 

32,32,603 
2300 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,32,512 
2810 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,42,522 
2820 DATA 42,32,32,32,32,60, 

52,62,32,32,96,9,5,23,32, 

93,446 

2930 DATA 1,22,5,4,32,93,3, 
19,5,5,14,19,44,46,46,46, 
395 

2840 DATA 44,70,52,32,32,32, 

32,42,42,32,32,32,32,32, 

32,32,604 
2850 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,32,512 
2B40 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,42,522 
2870 DATA 42,32,32,32,32,60, 

53,42,32,32,47,19,5,1,20, 

5,525 

2990 DATA 32,66,15,1,18,4,32, 
70,9,12,5,46,46,46,46,46, 
494 

2890 DATA 46,70,53,32,32,32, 

32,42,42,32,32,32,32,32, 

32,32,605 
2900 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,32,512 
2910 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,42,522 
2920 DATA 42,32,32,32,32,60, 

54,62, 32, 32, 74, 15, 1, 4, 32, 

47,505 

2930 DATA 32,86,9,5,23,32,64, 

15,1,18,4,32,70,9,12,5,419 
2940 DATA 46,70,54,32,32,32, 

32,42,42,32,32,32,32,32, 

32,32,406 
2950 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 




CB4 



32,32,512 
2960 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,42,522 
2978 DATA 42,32,32,32,32,40, 

55,62,32,32,73,9,12,5,32, 

76,615 

2980 DATA 15,1,4,32,96,9,5, 
23,47,80, 16,9,14,21,32,43, 
456 

2990 DATA 44, 71,55,32, 32, 32, 

32,42,42,32,32,32,32,32, 

32,32,407 
3**0 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,32,512 
3010 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32, 42,522 
3*20 DATA. 42,32,32,32,32,40, 

54,42,32,32,70,1,3,9,12,9, 

516 

3130 DATA 20,25,32,83,3,19,5, 
5,14,46,46,46,46,46,46,44, 
527 

3040 DATA 46,70,56,32,32,32, 

32,42,42,32,32,32,32,32, 

32,32,600 
3*50 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32, 32, 512 
306* DATA 32.32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,42,522 
3070 DATA 42,32,32,32,32,32, 
ji, 32,32,32,32,32, 

32,32,522 
3080 DATA 32,32,32,32,32,32, 

32, 32, 32, 32, 32, 32, 32, 32, 

32,32,512 
3090 DATA 32,32,32,32,32,32, 

32,42,42,32,32,32,32,32, 

32,32,532 
3100 DATA 32,32,32,32,32,32, 

32 , 32 , 32, 32, 32 , 32, 32, 32, 

32,32,512 
3110 DATA 32,32,32,32,32,32, 

32, 32, 32, 32, 32, 32, 32, 32, 

32,42,522 
3120 DATA 42,42,42,42,42,42, 

42,42,42,42,42,42,42,42, 

42,42,672 
3130 DATA 42,42,42,42,42,42, 

42,42,42,42,42,42,42,42, 

42,42,672 
3140 DATA 42,42,42,42,42,42, 

42,42, 70,0,*, 0,0,0, 18,0, 
424 

3150 DATA 70,0,0,0,0,0,18,0, 
70,0,0,0,0,0, il, 0,176 



316* DATA 42,42,42,42,42,42, 

42,42,42,42,42,42,42,42, 

42,42,672 
317* DATA 42,42,42,42,42,42, 

42,42,42,42,42,42,42,42, 

42,42,672 
3180 DATA 42,42,42,42,42,42, 

42,42,42,32,32,32,32,32, 

32,32,402 
3190 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,32,512 
3200 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,42,522 
321* DATA 42,32,32,32,32,32, 

32,32,32,32,32,32,42,42, 

32,70,58* 
3220 DATA 1,3,9,12,9,20,9,5, 

19,32,42,42,32,32,32,32, 

331 

3230 DATA 32,32,32,32,32,32, 
32,42,42,32,32,32,32,32, 
32,32,532 



3240 DATA 32 

32,45,45,45,45,45,45,45, 

45,45,629 
3250 DATA 45,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,42,535 
3240 DATA 42,32,32,32,70,21, 

14,3,2*,9,!5,i4,32 1 32,32, 

32,432 

327* DATA 32,32,32,32,32,32, 
32,32,32,32,32,32,32,32, 

32,32,512 
32B* DATA 32,75,5,25,32,32, 

32,42,42,32,32,32,32,32, 

32,32,541 
3290 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,32,512 
3300 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,42,522 
3310 DATA 42,32,32,32,32,60, 

49,62,32,32,60, IB, 9,14,20, 

5,531 

3320 DATA 18,32,68,5,22,32, 

153,47,54,46,46,46,46,46, 

46,46,78* 
3330 DATA 46,70,49,32,32,32, 

32,42,42,32,32,32,32,32, 

32,32,401 
334* DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,32,512 
3350 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,42,522 



336* DATA 42,32,32,32,32,60, 

50,62,32,32,196,137,147, 

139,32,15,1072 
337* DATA 18,32,84,1,14,5,46, 

46,46,46,46,46,46,46,46, 

44,616 

3380 DATA I6,7*,5«,32,32,32, 

32,42,42,32,32,32,32,32, 

32,32,402 
3390 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32, - - 1 j t i 
34*0 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,42,522 
341* DATA 42,32,32,32,32,6*, 

51,62,32,32,73,14,3,32,83, 

3,615 

342* DATA 18,5,5,14,32,67,15, 
12,46,46,46,46,46,46,46, 
46,534 

3430 DATA 46, 7*, 51,32,32,32, 

32,42,42,32,32,32,32,32, 

32,32,403 
344* DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,32,512 
3450 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,42,522 
3440 DATA 42,32,32,32,32,6*, 

52,42,32,32,73,14,3,32,64, 

15,613 

3470 DATA 18,4,5,18,32,47,15, 
12,44,44,46,46,46,46,46, 

46,539 

3480 DATA 44, 7*,52,32,32,32, 

32,42,42,32,32,32,32,32, 

32,32,404 
349* DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,32,512 
350* DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,42,522 
3510 DATA 42,32,32,32,32,60, 

33,62,32,32,73,14,3,32,67, 

21,619 

3520 DATA 18,19,15,18,32,67, 

15,12,46,46,44,46,46,46, 

46,44,544 
353* DATA 44,70,53,32,32,32, 

32,42,42,32,32,32,32,32, 

32,32,6*5 
3540 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,32,512 
355* DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,42,522 



3540 DATA 42,32,32,32,32,60, 

54,62,32,32,66,5,12,12,32, 

2*7,744 
3570 DATA 142,47,79,6,4,44, 

46,46,46,46,46,46,46,46, 

46,46,786 
DATA 46,70,54,32,32,32, 

32,42,42,32,32,32,32,32, 

32,32,6*6 
3590 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,32,512 
36*0 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,42,522 
3410 DATA 42,32,32,32,32,6*, 

55,42,32,32,85,14,21,19,5, 

4,559 

3620 DATA 46,46,46,44,44,46, 

46,46,46,46,46,46,46,46, 

46,46,736 
3630 DATA 46,70,55,32,32,32, 

32,42,42,32,32,32,32,32, 

32,32,607 
344* DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,32,512 
3450 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,42,522 
3640 DATA 42,32,32,32,32,60, 

5a, 62, 32, 32, 62,5, 20,21 , IB, 

14,572 

3670 DATA 32,77,1,9,14,32,77, 
5, 14, 21,46,46,46, 46,46,46, 
558 

368* DATA 46,70,56,32,32,32, 

32,42,42,32,32,32,32,32, 

32,32,40B 
369* DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,32,512 
37*0 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,42,522 
3710 DATA 42,32,32,32,32,5, 

32, 32, 32, 32,32, 32, 32, 32, 

32,32,522 
372* DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,32,512 
373* DATA 32,32,32,32,32,32, 

32,42,42,32,32,32,32,32, 

j 2 , j2, 5j2 
374* DATA 32,32,32,32,32,32, 

32,32,32,32,32 

32,32,512 
375* DATA ^2, 32,32,32,32,32, 

32,32,32,32,32,32,32,32, 



32 42 522 
3740 DATA 42,42,42,42,42,42, 

42,42,42,42,42,42,42,42, 

42,42,672 
3770 DATA 42,42,42,42,42,42, 

42,42,42,42,42,42,42,42, 

42,42,672 
3780 DATA 42,42,42,42,42,42, 

42,42,255,255,255,255,255, 

255,255,255,2376 
3790 DATA 32,32,32,32,32,32, 

32,32,8,32,0,0,0,32,45,61, 

426 

m% REM H SAVE PT 1 It 
4010 POKE 43,0iPQKE 44,8 

: POKE 45,0iPOK£ 46,48 
4&15 m It CHANGE , 

3 IN NEXT LINE TO ,1 IF 
USING TAPE II 
4020 SAVE " 1TELC0H/V1%3 ■ 



PROGRAM: COHNS 5£N6 



im F2R L=0 TO B9s CX=0 
:F0R D=0 TO 15: READ A 
sCX=C3(*A:PQKE 49132+Ltlt* 
D f fl!»EH D 

2010 READ A: IF AOCI THEN PR 
INT" ERROR IN LINE"; 
2040+(LU0)iSTDP 

2020 NEIT L 

2040 DATA 133,253,132,254,32, 

254, 255,160, 0,177, 253, 200, 

201,0,240,4,2500 
2050 DATA 32,210,255,76,9, 

192,94,238,33,208,32,204, 

255,32,86,192,2150 
2040 DATA 162,0,189,1,4,157, 

0,3,199,0,5,157,0,9,139,0, 

1069 

2070 DATA 6,157,0,10,189,0,7, 

157,0,11,232,224,0,203, 

227,204,1634 
2080 DATA 33,208,96,32,86, 

192,169,38,141,24,203,32, 

228,255,240,251,2233 
2090 DATA 169,23,141,24,208, 

96,162,0,169,1,157,0,216, 

157,0,217,1740 
210-0 DATA 157,0,218,157,0, 

219,232,224,0,203,237,96, 

162,0,199,0,209? 
2110 DATA 4,157,0,16,189,0,5, 

157,0,17,189,0,6,157,0,13, 

915 

2120 DATA 189,0,7.157,0,19, 
232,224,0,208,227,94,32, 
204,255,174,2024 

2130 DATA 197,20,160,0,169,1, 
32,186, 255,173,197,20,201, 



1,240,46,1919 
2140 DATA 169,64,141,20,2, 

169,48,141,21,2,169,58, 

1+1,22,2,160,1329 
2153 DATA 0,135,0,2,153,23,2, 
200,204, 194, 20, 20B,244, 

149,44, 153,1801 
2160 DATA 23,2,149,30,153,24, 

2,173,199,20,201,83,208, 

12,169,44,1552 
2170 DATA 151,25,2,169,37, 

153,26,2,200,200,200,200, 

200,200,200,76,2093 
2180 DATA 240,192,160,0,.1B5, 

0,2,153,20,2,200,204,194, 

20,203,244,2024 
2190 DATA 152,162,20,160,2, 

32,189,255,96,32,204,255, 

173,197,20,201,2150 
2200 DATA 8,240,11,169,38, 

160,20,32,0,192,32,105, 

193,96,169,0,1465 
2210 DATA 32,189,255,149,15, 

162, 8, 160, 15, 32, 186, 255, 

32,192,255,142,211? 
2220 DATA 15,32,198,255,160, 

0,32,207,255,201,13,240,7, 

153,0,2,1770 
2230 DATA 200,76,38,193,169, 

0,153,0,2,32,204,255,169, 

13,12,210,1746 
2240 DATA 255,32,210,255,32, 

210,255,169,32,32,210,255, 

169,0,160,2,2273 
2250 DATA 32,0,192,162,15,32, 

201, 25V69, 73, 32,210, 255, 

169,13,32,1342 
2240 DATA 210,255,32,204,255, 

32,105,193,96,169,152,140, 

20,32,0,192,2107 
2270 DATA 32,228,255,240,251, 

201,32,208,247,96,173,197, 

20,201,8,240,262? 
22B0 DATA 6,149,147,32,210, 

255,96,169,97,160,20,32,0, 

1?2,32,22B,1B<5 
2290 DATA 255, 240,251,201, B9, 

240,7,201,78,240,230,76, 

142,193,169,147,275? 
2300 DATA 32, 210,255, 32,25!, 

m,32, 204, 255, 162, 1,32, 

198, 255, 3., 207,2353 
2310 DATA 255,32,207,255,160, 

29,234,32,207,255,32,240, 

255,136,20B,246,2753 
2320 DATA 169,13,32,210,255, 

32,207,255,201,13,240,40, 

201,34,208,245,2355 
2330 DATA 32,207,255,201,191, 

203,21,32,207,255,201,34, 



240,6,32,210,2332 
2340 DATA 255,76,215,193,149, 
13,32,210,255,76,197,193, 
32,207,255,208,2586 
2350 DATA 251,76,197,193,169, 
1,32,195,255,32,204,255, 
94,32,204,255,2447 
2360 DATA 169,1,133,184,169, 
8,133, 184, 169, 1,133,183, 
169,2,133,183,1957 
2370 DATA 169,216,133,187, 
169,20,133,188,32,192,255, 
96,169,13,141,198,2311 
2380 DATA 20,32,34,195,172, 
194,20,200,200,200,140, 
195,20,142,0,189,1973 
2390 DATA 0,2,157,64,20,232, 
224,13,208,245,162,0,189, 
0,2,157,1677 
2400 DATA 83,20,232,224,13, 
209,245,169,48,141,64,20, 
141,65,20,141,1834 
2410 DATA Bl, 20,141, 82, 20,96, 
169,76,141,189,20,169,166, 
141,212,193,1916 
2420 DATA 32,122,193,169,13, 
141,198,20,169,1,141,146, 
195,169,166,141,2036 
2430 DATA 0,2,32,44,195,144, 
3,76,139, 194,32,140,192, 
149,0,162,1524 
2440 DATA 0,160,8,32,213,255, 
144,3,32,249,192,169,119, 
160,20,32,1788 
2450 DATA 0,192,32,228,255, 
240,251,201,83,240,11,201, 
80,240,46,201,2501 
2460 DATA 95,240,48,76,139, 
194,169,38,141,24,208,32, 
86,192,169,10,1861 
2470 DATA 141,190,20,162,255, 
160,255,136,208,253,202, 
208,248,206,190,20,2854 
24B0 DATA 173,190,20,208,233, 
169,23,141,24,203,76,146, 
194,32,35,201, 207B 
2490 DATA 76,139,194,96,174, 
65,20,232,224,58,208,11, 
169,48,141,65,1920 
I 2500 DATA 20,238,64,20,76, 
234,194,142,65,20,173,195, 
20,141,194,20,1316 
2510 DATA 142,0,189,63,20, 
157,0,2,232,236,194,20, 
208,244,169,83,1979 
2520 DATA 141,189,20,32,140, 
192,149,0,133,251,169,16, 
133,252,162,255,2254 
2530 DATA 160,19,169,251,32, 
214,255,144,3,32,249,192, 



240,3,32,249,2246 
2540 DATA 192,94, 169, 0, 160, 

20,32,0,192,76,51,195,169, 

19,160,20,1551 
2550 DATA 32,0,192,162,0,169, 

46,32,210,255,232,236,198, 

20,203,247,2239 
2540 DATA 162,0,169,157,32, 

210,255,232,236,198,20, 

208,247,140,0,140,2426 
2570 DATA 192,20,169,164,32, 

210,255,149,157,32,210, 

253,32,228,255,240,2420 
2580 DATA 251,172,192,20,141, 

191,20,169,46,32,210,255, 

169,157,32,210,2267 
2590 DATA 255,173,191,20,201, 

13,240,59,201, 95,208, 10, 

169,0,141,166,2142 
2600 DATA 195,141,194,20,56, 

96,201,20,203,13,192,0, 

240,193,136,149,2074 
2610 DATA 157,32,210,255,76, 

79,195,41,127,201,32,144, 

178,204,198,20,2149 
2620 DATA 240,173,173,191,20, 

153,0,2,32,210,255,169,0, 

133,212,200,2163 
2630 DATA 76,79,195,173,144, 

195,240,7,200,206,146,195, 

76,179,195, 140.24BB 
2640 DATA 194,20,169,13,32, 

210,255,96,32,204,255,32, 

86,192,149,182,2141 
2450 DATA 141,24,208,32,228, 

255,240,251, 201, 133,20B, 3, 

74,23,196,201,2420 
2460 DATA 137,203,3,76,64, 

196,201,134,208,3,74,167, 

196,201,138,208,2214 
2670 DATA 3,76,188,196,201, 

135,208,3,76,209,196,201, 

139,208,3,76,2118 
2680 DATA 234,194,201,136, 

208,3,76,20,194,201,140, 

208,3,74,19,196,2113 
2490 DATA 76,211,195,96,76, 

211,195,173,219,20,240,18, 

169,0,141,219,2259 
2700 DATA 20,169,180,141,4, 

45,169,54,141,8,45,74,211, 
195,169,1,1630 
2710 DATA 141,219,20,149,52, 
141,6,45,169,182,141,8,45, 
76,211,195,1820 
2720 DATA 173,197,20,201,8, 
240,48,169,8,141,197,20, 
169,196,141,74,2002 
2730 DATA 45,169,137,141,75, 

► 



45,169,147,141,76,45,16?, 

139,141,77,43,1761 
2740 DATA 169, 84, 141,82,45, 

149,1,141,83,45,149,16, 

141,84,45,169,1584 
2750 DATA 5,141,85,45,74,211, 

195,149, 1,141,197,2*, 169, 

48,141,74,1738 
2760 DATA 45,169,9,141,75,45, 

169,19,141,76,45,169,11, 

141,77,45,1377 
2778 DATA 169, 212, 141,82, 45, 

169,129, 141, 83,45, 169,144, 

141,84,45,149,1968 
2780 DATA 133,141,85,45,74, 

211,195,173,33,208,2(1,16, 

240,4, 238,33,2034 
2790 DATA 208,74,211,195,169, 

1,141, 33,208,74,211,19s, 

173,32,208,211,2337 
2800 DATA 16,240,6,238,32, 

208,76,211,195,169,0,141, 

32,208,76,2.11,2059 
2810 DATA 195,238,134,2,173, 

134,2,201,1639,5,169,0, 

141,134,2,1754 
2820 DATA 141,89,192,76,200, 

195,234,76,211,195,173, 

218,20,240,31,169,2460 
2830 DATA 0,141,218,20,169, 

79,141,143,46,169,14,141, 

144, 44, 149,207, 1B47 
2B40 DATA 141,255,255,255, 

255,255,255,255,255.255, 

255,255,255,255,255,255, 

3966 

tffl PRINT' [ CLE AR]N£lf H 

SPRINTTDOHN22 

LDAD'+CHR*(34H"CDN«S GEN 

7 i +CHR${34)+",B* 
4305 REM II CHANGE , 

8 IN ABOVE LINE TO ,1 IF 
YDU ARE USING TAPE It 
4010 PRIMP [DONM] RUN" 
4020 POKE 631,13:P0KE 632,13 

: POKE 433, 13; POKE 198,3 

:PRINT" CHDHE]" ■ 



PR06RAP1 s COMAS &EN7 



2000 FOR L=0 TG 176jCX*0 
i FOR 0=0 TD ISjREAO A 
:CX=C)(*A:POKE 50432+1116+ 
D, A: NEXT D 

2010 ftEAD A; IF AOCS THEN PR 
INT-ERROR EN LINE* ^ 
2040+(LI10)iSTQP 

2020 NEXT L 

2043 DATA 141,146,46,169,134, 
141,147,46,141,148,44,74, 



211,195,169,1,1957 
2050 DATA 141,218,20,169,207, 

141,143,46,169,142,141, 

144,46,149,79,141,2116 
2040 DATA 146.46,169,6,141, 

147,46,141,148,46,76,211, 

195,148,46,76,1796 
2070 DATA 211,195,0,173,147, 

2,41,15,170,189,220,20, 

133,253, 189, 229, 21 B7 
2080 DATA 20,133,254,32,214, 

197,173,147,2,41,112,74, 

74,74,74,170,1791 
2090 DATA 1B9, 94, 207, 133,253, 

189,112,207,133,254,32, 

214,197,173,147,2,2538 
2100 DATA 41,128,240,14,149, 

74,133,253,169,21,133,254, 

32,214, 197,74,2148 



133,21,144,245,2747 
2190 DATA 94,149,135,141,24, 

208,32,86,192,169,0,141, 

135,21,141,136,1926 
2200 DATA 21,169,62,141,81, 

32,32,228,255,240,251,201, 

136,208,3,76,2134 
2210 DATA 73,199,201,133,208, 

8,169,6,32,57,199,76,51, 

198,201,134,1945 
2220 DATA 208,8,169,7,32,57, 

199,76,51,198,201,135,208, 

216,169,8,1942 
2230 DATA 32,57,199,169,32, 

141,81,32,149,62,141,45, 

33,32,228, 255, 172B 
2240 DATA 240,241,201,133, 




. ** 



***** 



swift* 



2110 DATA 125,197,169,72,133, 

253,169,21,133,254,32,214, 

197,173,148,2,2292 
2120 DATA 41,1,240,14,149,8, 

133,253,169,21,133,254,32, 

214,197,76,195-5 
2130 DATA 157,197,149,19,133, 

253,169,21,133,254,32,214, 

197,173,148,2,2271 
2140 DATA 41,14,208,14,16?, 

33,133,253,169,21,133,254, 

32,214,197,76,1943 
2150 DATA 189,197,149,27,133, 

253,149,21,133,254,32,214, 

197,173,148,2,2311 
2140 DATA 41,224,74,74,74,74, 

74, 170,189, 248,20,133,253, 

189,0,21,1858 
2170 DATA 133,254,32,214,197, 

96,160,0,177,253,200,201, 

0,240,4,32,2195 
2180 DATA 210,255,76,216,197, 

96,253,32*210,255,200,204, 



208,3,76,106,198,201,134, 
208,8,169,32,32,2190 

2250 DATA 57,199,76,104,198, 
201,135,208,8,169,64,32, 
57,199,76,106,1891 

2260 DATA 198,201,134,209, 
206,169,96,32,57,199,169, 
32,141,65,33,169,2111 

2270 DATA 42,141,49,34,32, 
228,255,240,241,201,133, 
208,3,76,137,198,2238 

2280 DATA 201,134,208,230, 
149,128,32,57,199,149,32, 
141,49,34,149,62,2014 

2290 DATA 141,81,34,149,151, 
141,24,208,169,42,141,51, 
34,32,228,255,1955 

2300 DATA 201,136,208,3,76, 
81,199,2*1,133,208,3,76, 
220,198,201,134,2278 

2310 DATA 208,235,149,1,32, 
65,199,76,220,198,169,32, 
141,65,37,149,2016 

2320 DATA 42,141,89,38,32, 
228,255,240,241,201,133, 
208,3,74,34,199,2180 



2330 DATA 211,134,200,230, 

169,16,32,65,199,74,34, 

199,169,32,141,81,1986 
2340 DATA 36,169,62,141,65, 

37,32,228,255,240,241,201, 

133,208,3,76,2127 
235k? DATA 31, 199,201, 137,20B, 

8,169,32,32,65,199,76,31, 

199,201,134,1922 
2360 DATA 208,8,169,96,32,65, 

199,76,31,199,201,138,208, 

8,149,160,1947 
2370 DATA 32,45,199,76,31, 

199,201,135,208,194,169, 

224,32,65,199,74,2105 
2380 DATA 186,198,169,23,141, 

24,208,149,32,141,89,38, 

173,135,21,141,1888 
2390 DATA 147,2,173,136,21, 

141,148,2,96,24,109,135, 

21,141,135,21,1452 
2400 DATA 96,24,109,134,21, 

141,136,21,96,169,4,141, 

135,21,74,147,1475 
2410 OAT A 198,169,0,141,136, 

21,76,34,199,173,197,20, 

201,1,240,5,1811 
2420 DATA 169,168,141,212, 

193,32,122,193,149,76,141, 

189,20,149,15,141,2150 
2430 DATA 198,20,149,1,1*1, 

146,195,169,168,141,0,2, 

32,44,195,144,1785 
2440 DATA 1,96,32,140,192, 

169,0,162,139,160,23,32, 

213,255,144,3,1761 
2450 DATA 32,249,192,173,172, 

23,141,147,2,173,173,23, 

141,148,2,169,1960 
2460 DATA 101,160,23,32,0, 

192,169,139,160,23,32,0, 

192,169,13,32,1437 
2470 DATA 210,255,32,210,255, 

32,210,255,169,34,160,23, 

32,0,192,149,2238 
24B0 OATA 156,160,23,32,0, 

192,169,13,32,210,255,32, 

210,255,32,210,1981 
2490 DATA 255,169,16,160,23, 

32,0,192,32,51,197,169,13, 

32,210,255,1806 
2500 DATA 32,210,255,32,210, 

255,169,213,160,23,32,0, 

192,169,175,140,2267 
2510 DATA 23,32,0,192,169,13, 

32,210,255,32,210,255,94, 

162,0,149,1650 
2520 DATA 0,157,139,23,232, 

224,14,208,748,162,0,169, 



0 t 157, 156,23,1912 
2530 DATA 232,224,14,208,248, 
I62,0 + li9 ? 0 s 157, 172,23, 
232 T 162 s 0 f 169,2172 
2540 DATA #,157,175,23,232, 
224,36,208,248,169,101, 
148,23,32,0, 192,19b* 
2550 DATA 169, 15,141,19B,20, 
32, 51, 115,141, 119,23,144, 
1,95,162,0,1506 
2560 DATA 189,1,2,137,139,23, 
232,234, 194,20,208, 144, 
169,13,32,210,2068 
2570 DATA 255, 169,25, 160,23, 
32,0,192,149,15,141,198, 
20,32,51,195,1477 
2590 DATA 192,0,240,14,162,0, 
189,0,2,157,156,23,232, 
236,194,20,1817 
2590 DATA 208,244,32,241,197, 
173,147,2,141,172,23,173, 
148,2,141,173,2217 
2400 DATA 23,169,13,32,211, 
255,32,210,255,169,126, 
160,23,32,0,192,1695 
2410 DATA 32,51,197,149,13, 
32,210,255, 169,45, 160,23, 
32,0,192,149,1749 
2620 DATA 36,141,198,20,32, 
51,195,192,0,240,14,162,0 
LB?, 1,2, 1472 
2430 DATA 157,175,23,232,234, 
194,20, 20B.244, 169, 17,32, 
210,255,32,210,2414 
2440 DATA 255,149,74,160,23, 
32,0,192, 32,229, 255,240, 
251,201,78,208,2398 
2653 DATA 3,76,253,199,201, 
B9,20B, 240,169, 147,32, 210, 
255,169,83,141,2475 
2660 DATA 189,20,169,168,141, 
0,2,172,119,23,192,0,240, 
14,162,0,1611 
2670 DATA 189,139,23,157,1,2, 
232,236,119,23,208,244, 
172,119,23,200,2087 
2680 DATA 140,194,20,32.140. 
192,149,139,133,251,169, 
23,133,252,162,212,2361 
2690 DATA 160,23,169,251,32, 
216,255,144,3,32,249,192, 
240,3,32,249,2250 
2700 DATA 192,94,0,32,48,207, 
234,234,234,234,32,184, 
255,169,0,32,2185 
2710 DATA 189,255,32,192,255, 
169,0,133,251,169,8,133, 
252,160,0,177,2375 
2720 DATA 251,170,189,231,23, 



141,191,20,140,192,23,142, 
4,32,201,255,2222 
2730 DATA 173,191,20,32,210, 
255,32,204,255,172,192,20, 
200,192,40,208,2396 
2740 DATA 222,162,4,32,201, 
255,169,13,32,210,255,32, 
204,255,32,155,2233 
2750 DATA 201,165,251,24,105, 
40,133,251,165,252,105,0, 



133,252,201,11,2289 
2760 DATA 208,187,145,251, 
201,232,208,181,162,4,32, 
201,255,169,13,32,2501 
2770 DATA 210,255,32,204,255, 
169,4,32,195,255,96,162, 
255,160,255,136,2675 
27B0 DATA 208,253,202,208, 
248,94,162,200,202,203, 
253,96,0,173,32,208,2749 
2790 DATA 141,69,24,169,0, 
141,66,24,169,15,141,24, 
212,169,18,133,1545 
2m DATA 107,149,0,133,106, 
169,1,141,68,24,149,2,162, 
2,160,255,1648 
2B10 DATA 32,184,25? 169,1, 
162,147,160,2,32,189,255, 
32,192,255,162*2231 
2B20 DATA 2,32,198,255,32, 
228,255,201,0,208,3,74,9, 
203,141,191,2034 
2830 DATA 20,41,128,208,68, 
32,204,255,174,191,20,189, 
137, y, 201, 0,1889 
2840 DATA 208,3,76,194,202, 
189,137,21,141,47,24,201, 
34,208,2,169,1876 
2850 DATA 39,32,210,255,173, 
66,24,240,32,173,68,24, 
240,24,160,0,1760 
2840 DATA 173,67,24,145,106, 
230, 104, 208, 16,230,, 107, 
165,107,201,159,208,2252 
2870 DATA 8,169,0,141,68,24, 
238,32,208,32,204,255,32, 
228,255,201,2095 
2880 DATA 0,240,156,141,191, 
20,170,189,11,22,201,0, 
240,17,141,191,1930 
2890 DATA 20,162,2,32,201, 
255,173,191,20,32,210,255, 
76,223,201,173,2226 
2900 DATA 191,20,201,133,208, 
6,32,23,192,76,223,201, 
201,137,208,6,2058 
2910 DATA 32,67,192,76,223, 
201,201,134,208,11,169,1, 
141,66,24,32,1778, 



| 2920 DATA 123,203,76,223,201, 
201,138,208,14,169,0,141, 
66,24,173,69,2029 
2930 DATA 24,141,32,208,76, 
223,201,201,135,208,6,32, 
49,203,76,223,2058 
2940 DATA 201,201,139,208,6, 
32,190,204,76,223,201,201, 
136,208,9,32,2267 
2950 DATA 108,192,32,212,194, 
76,223,201,201,140,208,3, 
76,35,203,76,2130 
2960 DATA 223,201,173,191,20, 
201,7,240,10,201,5,240,17, 



74,223,201,2229 
2970 DATA 238,32,208,173,218, 
20,240,3,32,123,203,76, 
223,201,160,0,2150 
2980 DATA 185,175,23,201,0, 
240,28,170,140,192,20,189, 
11,22,141,191,1928 
2990 DATA 20,142,2,32,201, 
255,173,191,20,32,210,255, 
172,192,20,200,2137 
3000 DATA 76,224,202,32,204, 
255,76,223,201,32,204,255, 
169,95,32,210,2490 
3010 DATA 255,149,157,32,210, 
255,169,32,32,210,255,169, 
157,32,210,255,2599 
3020 DATA 76,57,202,169,2,32, 
195,255,169,0,141,66,24, 
149,1,141,1699 
3030 DATA 68,24,230,106,208, 
2,230,107,169,0,160,0,145, 
106,173,69,1797 
3040 DATA 24, 14 1,32, 208, 96, 
169,0,133,251,169,12,133, 
252,160,0,177,1957 
3050 DATA 251,240,37,170,189, 
11,22,141,191,20,162,2,32, 
201,255,173,2097 
3060 DATA 191,20,32,210,255, 
32,204,255,165,251,24,105, 
1,133,251,145,2294 
im DAT? 252,105,0,133,252, 
76,79,203,76,223,201,169, 
50,141,1,212,2173 
30B0 DATA 169,25,141,5,212, 
169,32,141,4,212,169,33, 
141,4,212,96,1765 
3090 DATA 141,4,212,96,255, 
255,254,255,255,255,255, 
255,255,255,255,255,3512 
3100 DATA 1,1,1,8, 1,1, f,Mi 

0,4,0,0,0,^0, 13 
3110 DATA 0,0,0,0,0,0,0,0,0, 

0,0,0,1,0,0,0,1 
3120 DATA 255,254,255,255, 



255,255,255,255,255,255, 
255,255,254,255,255,239, 
4062 

3130 DATA 254,255,255,255, 
255,255,255,255,255,255, 
255,255,255,255,255,255, 

4079 

3140 DATA 0,0,0,0,0,0,0,8,0, 

8,0,2,1,0,0,0,19 
3150 DATA 0,32,0,0,0,0,0,0,0, 

8,0,64,0,0,0,0,96 
3150 DATA 169,14,32,210,255, 
169,8,32,210,255,169,5,32, 
210,255,169,2194 
3171 DATA 6,141,147,2,32,204, 
255,32,84,192,169,146,141, 
24,20B,32,1837 
3185 DATA 228,255,240,251, 
201,133,208,6,32,241,197, 
76,20,204,201,137,2630 
3190 DATA 20B,3, 76, 109,204, 
201,134,208,11,169,23,141, 
24,208,32,81,1832 
3200 DATA 206,76,20,204,201, 
133,208,3,76,179,204,201, 
135,208,3,76,2138 
3210 DATA 137,204,201,139, 
208,3,76,148,204,201,136, 
208,3,75,162,204,2310 
3220 DATA 201,140,208,3,76, 
173,204,76,31,204,74,20, 
204,159,23,141,1949 

3230 DATA 24,206,169,147,32, 
210,255,32,28,194,32,159, 

199,32,173,201,2095 
3240 DATA 76,20,204,76,20, 
204,76,20,204,169,23,141, 
24,208,32,253,1750 
3250 DATA 199,76,20,204,169, 
23, 141, 24,208, 32,B9,199, 
32,105,193,76,1790 
3260 DATA 20,204,169,23,141, 
24,208,32,60,205,76,20, 
Z04,32,200, 195,1813 
3270 DATA 76,20,204,169,23, 
141,24,208,32,84,194,74, 
20,204,145,105,1748 
3280 DATA 201,0,208,7,165, 
107,201,48,208,1,96,162,3, 
230,106,208,1951 
3290 DATA 2,230,107,169,0, 
160,0,145,106,202,208,241, 
174,B2,20,232,2078 
3300 DATA 224,5B,208,U,169, 
48,141,62,20,238,81,20,76, 
242,204,142,1964 
3310 DATA 82,20,173,195,20, 
141,194,20,162,0,189,80, 
20,157,0,2,1455 ► 
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3320 DATA :32,234,194,20,20b, 
244,149,83,141,169,20,32, 
140,192,169,0,2269 

3330 DATA 133,251,149,48,133, 
252,166,106,164,107,149, 
251,32,214,255, 144,2596 

3340 DATA 3, 32,249, 192, 240, 3, 

149,4B,133,1950 
3350 DATA 107,169,0,141,46, 

24,169,1,141,68,24,96,169, 

74,U1,1W,I581 
3360 DATA 20,169,191,141,212, 

193,32,122,193,169,13,141, 

19f, 20, 169, 1,1984 
3370 DATA 141,164,195,149, 

191,141,0,2,32,44,195,144, 

3,74,113,205,1817 
339? DATA 32,140,192,169,0, 

162,0,140,48,32,213,255, 

144,3,32,249,1831 
3390 DATA 192,169,119,160,20, 

32,0,192,32,228,255,240, 

251,201,83,241,2414 
3400 DATA 34,201,80,24?, 101, 

201,95,206,3,76,49,206,76, 

113,205,149,2057 
3410 DATA 147,32,210,255,169, 

0, 133,106, 169,48,133,107, 

173,0,48,240,1970 
3420 DATA 26, 161,1, 177, 116, 

201,0,240,52,32,210,255, 

32,70,206,32*1799 

3430 DATA 199,205,230,106, 
208,235,230,107,76,161, 
205,169,33,160,207,32,2562 

3440 DATA 0,192,32,105,193, 
94,32,228,255,208,1,96, 
201,32,240,5,1914 

3450 DATA 201,95,240,17,96, 
32,228,255,201,32,208,249, 
94,32,228,255,2465 

3450 DATA 240,251,76,113,205, 
10«, 104,74, 113,205,169,4, 
174,219,20,224,2297 

3470 DATA 0,240,7,162,6,160, 
0,76,254,205,162,4,160,7, 
32 , 186 , 1561 

34G0 DATA 255,149,0,32,189, 
255,32,192,255,149,0,133, 
104,169,48,133,2137 



3490 DATA 107,160,0,177,106, 

201,0,240,23,141,191,20, 

162,4,32,201,1765 
3500 DATA 255, 173,191, 20,32, 

210,255, :30, 106, 208,230, 

230,107,76,17,206,2546 
3510 DATA 162,4,32,201,255, 

169,13,32,210,255,32,204, 

255,162,4,32,2022 
3520 DATA 195,255,76,113,205, 

94,140,20,142,255,202,20a, 

253,136,208,248,2792 
3530 DATA 94,142,0,149,0,157, 

0,12,157,0,13,157,0,14, 

157,0,1094 
3540 DATA 15,232,208,241,169, 

12,133,254,169,0,133,253, 

169,147,32,210,2377 
3550 DATA 255,32,228,255,208. 

6,32,230,206,76,113,206, 

76,241,206,201,2571 
3560 DATA 20,240,42,201,95, 

240,58,201,13,240,70,201, 

34,208,2,169,2044 
3570 DATA 39,160,0,145,253, 

t 7 fl ^Aft ^ 

230,254,145,254,2690 
3580 mU 201,15,208,6,165, 

253,201,231,240,53,74,113, 

204,145,254,201,2588 
3590 DATA 12,208,9,145,253, 

201,0,208,3,74,113,206, 

165,253,56,233,2161 
3600 DATA 1,133,253,165,254, 

233,0,133,254,169,20,32,' 

210,255,74,113,2301 
3610 DATA 206,149,95,32,210, 

255,169,13,140,0,145,253, 

76,152,206,160,2301 
3620 DATA 1,169,0,145,253,96, 

169,95,32,210,255,169,157, 

32,210,255,2248 
3630 DATA 96,141,191,20,201, 

20,240,21,201,13,240,17, 

201,32,174,3,1913 
3440 DATA 76,113,204,173,191, 

20,201,96,144,3,74,14,207, 

76,127,206,1931 
3450 DATA 173,191,20,201,193, 

176,3,74,113,206,201,219, 

144,239,76,113,2344 



3640 DATA 204,147,32,32,17 

17,78,79,32,70,73,76,69 

13,0,0,941 
3670 DATA 149,4,174,219,20 

224,0,240,5,162,6,160,0 

94,142,4,1645 
3480 DATA 160,7,94,255,255 

255,255,255,255,255,255 

255,254,255,255,239,3561 
3690 DATA 254,255,255,255, 

■2"5 5 j, y- j q iiw 5| 2 55 1 25 5 j 



3700 DATA 60,120,63,120,66, 
120,69,0,0,0,0,0,0,0,0,0, 
618 

1710 DATA 21,207,21,207,21, 
207,21,0,63,47,0,0,0,0,0, 
0,815 

3720 DATA 147,32,32,17,17,78, 
79,32,70,73,76,69, 13,0, 
110,111,954 

3730 DATA 112,113,61,42,43, 
41,42,255,255,255,255,255, 
255, 255, 255, 255,2789 

3740 DATA 0,0,0,8,1,0,0,0,0, 
0,4,0,0,0,0,0,13 

3750 DATA 0,0,0,0,0,0,0,0,0, 
0,0,0,1,0,0,0,1 

3740 DATA 0,204,255,255,255, 

nun ncc ^cu r., cc r }cc ^ cc 

255,254,255,255,239,3757 
3770 DATA 254,255,255,255, 
255,255,255,255,255,255, 
255,255,255,255,255,255, 
4079 

3780 DATA 0,0,0,0,0,0,0,8,0, 

8,0,2,1,0,0,0,19 
3790 DATA 0,32,0,0,0,0,0,0,0, 

0,0, 100,0, 10,0,40, 182 
3800 DATA 0,255,255,255,255, 

7 iee we *)cv ite "tec 

J | |iL u J,d.J-j||4,JJ,ijJ | |iJJ,i,Jj, 

255 , 255, 255 , <i55 , 3577 
4000 REM tt NQW SAVE PSOE 
ft 

4032 POKE 43,0:POKE 44,192 
3 POKE 45,1: POKE 46,208 
4035 REM t ( CHANGE ,3 in NEXT 

LIKE TO ,1 IF YOU ARE 

USIN5 TAPE ft 
4040 SAVE ^TELCOH/VlSa ■ 








Daryl Bowers adds 



birds and flies to the 



hazards which our 



little frog must face. 




AS PROMISED, THIS MONTH'S 
exiting installment concerns 
the FLY and BIRD. These two 
routines are very similar and 
therefore it will suffice to ex- 
plain just one in detail. As 
usual, the first step is to insert 
calls to the routines in the main 
loop at the start. Lines 1540 and 
12550 do this. 

The first two lines check 
whether the fly has started to 
move yet If not (FLYMOVE = 0) 
a branch is made to GETFLY, 
which we will come to later. 
FLYXLO the fly's X position (low 
byte), is stored in $D0OC (X 
position of sprite number six). 
The next nine lines check 
FLYXHI, the X position's high 
bit, and either set or reset bit six 
of SD010 (most significant bet of 
the sprite's X co-ordinate). 

Stored at SDOOD is 108, the 
fly's Y co-ordinate, which does 
not alter (our fly hasn't heard of 
wind currents yet!) f 

The fly has two frames of 
animation stored at sprite 
definitions 219 and 220. 
WINGFLY is a variable which 
alternates in value between 
zero and one- Depending on 
this value either 219 or 220 is 
stored in $07FE (sprite six defin- 
ition pointer). Following this, 
WINGFLY is 'Exclusive Ored 
with one to reverse the value. 

The next 15 lines are 
concerned with the fly's 
movements. FLYDEL, as its 
name suggests, is a delay 
counter. When it reaches zero, 
the fly's speed, FLYSPD, is 
restored into FLYDEL ready for 
the next time. Next the X co- 
ordinate is reduced by one. If it 
is equal to 255 then the fly has 
either just come on to the 
screen or gone off it. The high 
bit of the X co-ordinate is 
decreased and if the value is 
not negative then the fly is on 
the right side of the screen and 
nothing needs to be done. If, 
however, it is negative, then 
the fly has gone off the left side 
of the screen and so the high 
bit is increased upto one again, 
ready for its next appearance, 
and FLYMOVE is reset to zero. 



1 

154* 


JSR FLY 


1690 


LDA FLYSPD 


1550 


JSR'BRD 


8700 


STA FLYDEL 


8320 


■ 


0710 


DEC FLYXLD 


8330 


■ 

1 


3720 


LDA FLYXLD 


8340 FLY 




8730 


CMP MFF 


8350 


* 

i 

I 


5740 


BNE NOWVFLY 


8360 


• 


B750 


DEC FLYXHI 


8370 


LDA FLYMOVE 


B760 


LDA FLYXHI 


83B0 


BED BETfLY 


8770 


BPL N0MVFLY 


8390 PRNTFLY 


LDA FLYXLO 


8780 


INC FLYXHI 


8400 


STA $MIC 


8790 


IMC FLYXHI 


8411 


LDA FLYXHI 


8000 


LDA 10 


B420 


BEB MEATFLY 


8810 


STA FLYHOWE 


1431 


LDA tD010 


BB20 N0HVFLY 




B44I 


DRfl 164 


6830 


RTS 


B4SI 


STA 4DiI0 


8940 


; 

■ 


8461 


JttP NXTFLY2 


8850 


■ 

p 


8470 KEUFLY 




8B60 EETFLY 




0480 


LDA iD010 


887* 


LDY FLYPOS 


8490 


AND §255-64 


B830 


DEC FLYDEL 


8500 


STA SD010 


em 


BNE N0TFLY 


8510 KXTFLY2 




dm 


INC FLYPOS 


8520 


LDA 1108 


8910 


LDA RANDTAB, Y 


B530 


STA $D00D 


8920 


BPL CHKFLY 


1940 


LDA HINGFLY 


8930 


LDA t(f 


B5S0 


BEQ LOFLY 


B940 


STA FLYPOS 


B56I 


LDA 1217 


8950 CHKFLY 




857? 


STA W7FE 


B960 


CHP #1 


8581 


JHP flVFLY 


8971 


BNE NDTFLY 


%m LOFLY 




8980 


■ 


Bill 


lda mt 


8990 


LDA tl 


Bill 


STA *07FE 


9000 


5TA FLYMDVE 


8420 MVFLY 




9010 NQTFLY 


RTS 


8630 


LDA HIN6FLY 


9020 


■ 

f 


8MB 


EOR #1 


9031 


; 


8650 


STA HIN6FLY 


9040 


i 


E=iP NOCHH 




9050 BRD 




Wi 


DEC FLYDEL 


W0 


■ 


mi 


BNE HDHVFLY 


9070 


i 



The latest section is only 
called if the fly has not yet 
started to move, FLYPOS 
contains the position of the 
current value in the random 
number table RANDTAB, and if 
FLVDFl has reached zero then 
this value is checked to see if it 
is positive or negative. A 
negative number indicates that 
the end of the table has been 
reached, and that FLYPOS 



needs to be reset to zero, the 
start of the table. If the value is 
psoitive it is checked to see if it 
is zero or one. If the value is 
zero, then nothing happens, 
and wereturn to the main loop. 
If the value is one, however, we 
store a one in FLYMOVE to start 
the fly moving again. 

There are few changes to 
the above routine involved in 
printing and moving the bird - 



BRD - such as different sprite 
definitions and speed of 
movement. By comparing the 
two it is easy to see how they 
differ. 

To execute the code, follow 
the same steps as outlined in 
(he last issue. Next issue will 
provide a routine to updatethe 
status panel at the bottom of 
the screen. 



Programming 




9111 

Nil 

9120 
913* 
9143 
W3I 
9160 
9170 

9*00 NEKTBRD 
9190 

9210 

9220 NXTBRD2 



LDA BRDHDVE 
BEQ 6ETBRD 
LOA BRDILO 
ST ft ID00E 

BEQ NEXTBFD 
LDA *D010 
QRft #I2B 

STfl mw 

JHP NXTBRDZ 

LDA $0010 
AND #255-123 
STfl 1B010 

LDA tl0B 



9240 

w m ■ — 


sta %m? 


9530 


INC BRDKHI 


9250 


1_DA NIN5BRD 


9^40 


INC BRDIK! 


. - - a 


BEQ IHBRD 

Jk, 1— U _UklJLL> 




LDA #0 


9570 


LDA 1221 


93H 


STA' BRDfOVE 


9230 


STA S07FF 


9570 NQHVBPD 




929fl 


JHP MVBRD 


958f 


RTB 


LCSPD 

j _-xrir ■ - 




9590 


■ 


9313 


LDA #222 


9600 


i 


9521 


STA S07" 


9610 SET3RD 




9330 !TVSP3 




9621 


i 


934? 


DEC BRDfoDEL 


9i30 


ldy mm 


?3SI 


PNE K3CH#E 


9641 


DEC BRDDEL 


?3a2 


IDA 


9650 


SHE NO7BR0 


9375 


STA BRWDEL 




INC ER5F[= 


?3W 


LDA HlNGSRt 


%n 


.DA BAHSTAM 




ED5 tl 


9690 


B?L CHKBf.D 


'Mil 


ETA HINGBRD 


9690 


LDA #0 


?4J SDCHWB 




?7fl 


STfi BRDFDS 




DEC BRDDEL 


9713 CHKBnD 






BNE NDKVBRD 


9720 


CHP II 




LDA BRDSPD 


9730 


BNE NGTBRD 


9450 


BTA BRDDEL 


?741 


I 


-CI 

LI - 


DEC BRDXL!] 


9750 




9470 


LDA BRUJCLO 


976« 


IDA tl 




CJ£ #*FF 


9773 




9490 


BNE NOHYBRB 


97G0 NOT BSD 


RTS 




DEC BRDXHI 




! 


9510 


LDA BRDXHI 


9B0f FINIBh 




9320 






r.ir 



• COMMODORE 64 • TRANSFER ALL MAJOR TURBOS •AUTOMATIC • NO USER KNOWLEDGE 

1 1 LOOK AT DOSOFT'S NEW OFFERINGS 
s AND SEE WHAT 'S IN THEM FOR YOU 



"The best transfer utility of the lot* 

Your 64 



n MegaTransfer Disk 

Our complete collection of tape to disk 
transfer utiJUui t <rttfs ij^ihc major mrho 
loading systems, including the litest 
combination picture'stripe loaders, and 
individual routines tor unusual loaders. 

• Niw incorporate* DISKl'S I IpfCvmus 
prke £1 1 ) U >r vi ntr standard load tape 
1 1 .] II I non •■ All transfer is automatic 

• N"o special hardware or user know ledgv 
it-i|ij]fcd * Efficient use of disk space 

• Translerred pnigr.ims rel<ud nu1(.-|K-inU-iiih 

• MegaTransic r Disk will transfer programs 
whkh NC >nnhc-r utility \s ill handle * An 
essential purchase l)<m t confuse MegaTransler 
with similar utilitic 
which have severe I <> _jC "I 
Limited capjhUldfi ^& M. / 

B MegaUtility Disk 

A handy collection of utilities toiliakc rht; 
best of yiur !^ tl ,JiHif>i \i r\ fist \rr* 
convenient • AJpha^oad I hsk Uirlvi 
Loader Load uiur program hu-*ji mvr 
Id I R t imesihr normal rate. Example: 200 
Hock*.. Normal speed 15flsecon<fa. Vt'hh 
Alpllaluad iuSt .Wswwd-k • hail Copy 

i l£rt^Fi lc KiSSSSSi f "' M^^ferDlsk, MegaUtility l)Kk, All pn^ms n « lien,™* «■ W 

it .m !S?r d£Lr Ifn RBc i^nt't'd ■ fe« ™ Dlak-tt>-T!ipc Flirt just *2 i 00 (sinn)t Send SAE for fuU details or c»H/ 

tV™. ,! fcja co « w fiY2 chtquv/PO lor fast despatch to: 

DoSofl (Dept Yt > P 2 Oakmcxir Ave, 
ool FY2 f>EE 




A Disk to Tape Plus 

A verunle collection ol [>isk tn'ljjw: muinu-s 
for single and nn.illip.in pm^rams l eatunnfi 
our tKT*' tape rurho loader with Visible 
Screen and stripes' rn»rdrT • Aummatic 
disk to tape • Ou lpu^^ program sectkins to 
tape as they load from duk • SdBCtlvc disk 
10 u pe tntn ^tcr witliorwii In iut h<Kii]<Mder 

* Maximum file length 207 blocks 

• Not for protected tomnicrc . uidisk- 
» Pniri-wkinjil xi TMiin available— includes 
masierinR scheduler „ ^ ~ - 1 ^ 



AND SAVE MONEY TOO! 



rifihts— £2S CXI 

IB) MegqiTape 

An ouistarKling new Tape-tu-Tape utility ri»r 
fast loading pr igrams • ( a n ers ait the 
major Inadins systems * No extra fi»nl ^un- 
required • -Ml vim iu-i-it i% j t.cimnmdorc <Vh 
and OQe (KM dock * NouserkrHwled^c 
irauired • Transfernfd pnigniiiis lnad 
independent!}' at lUfhf> speed with Visible 
Screen and strtpey border • LKxihle 
^luc— incorporates HHS Plus io convert 
your slow load programs to turbo load 
* Also handles HBfi and £ O ^ ^ 
Fasrback pn^rsuns 

Htm to get yOUrUcSoftw^rt: 



Format Format your tin* diNk^ at I I HHt 3 
speed • Pro Sprite A high class sprite 
hb-rjry editor IW% 
machine code. £.1^50 
Juv^tiek vonttol dU J- J-< * 



nr FJisk-to-Tape Plus just Jt^ i 00 ( single 
disk], or Al I Three at *2 9-99 save £1 2 

Off save £3 3 on our Complete Collect k>« 

i everv pronram in t hLs Ml including Blackpool 

Prnfewkifual DLsk-to-lape and MegrfTape UK postage included Europe add Tip 

at only £39-99 (single disk ) ( Jverseas add £ L Mi ftw airmail. 



S9: 

DoSoft 



You'll Do it Better 
with DoSoft 



FAST DISK UTILITIES • IjOADERS • 3 MIN DISK COPY • FAST DISK FILE COPY • FAST FORMAT 



Weekend Break 



j We sent 



our roving 



[ Marie Curry, on a 



BASIC TRAINING 



t Commodore computer 



AS ONE OF THOSE UNFORTUNATE 
people whose education was woefully 
lacking when it comes to the computer 
revolution, I reached the stage where I 
began to feel that I should not let the 
march of technology just stompt right 
over me. I then heard about computer 
weekends run by a company called 
Ardmore Adventure — better known for 
its involvement in children's activity 
camps. I signed up for a weekend at the 
Crest Hotel in High Wycombe and it was 
with no small amount of trepidation that I 
set off to attend on a freezing cold Friday 
in February. 

The actual course begins on Saturday 
morning, but I decided to go on the Friday 
in order to get my bearings and to meet 
some of the people who have the 
mammoth task of organising the weekend 
breaks. All the equipment must be set up 
in advance and, of course, it has to be 
shipped in since Crest Hotels aren't 
normally provided with enough 
Commodore computers to keep 50 micro 
enthusiasts happy for 4& hours. 

The aims of the course are simple. You 
should attend with the intention of doing 
exactly as you please as long as it's 
connected with computers. If you want to 
tackle advanced machine code 
programming then there'll be somebody 
there to help you. Alternatively, if you're 
completely computer illiterate, like me, 
then you can start on the absolute basics 
of Basic and work your way up. 

The whole weekend package includes 
accommodation and meals but if you 
don't want to stay at the hotel and mix 
with your fellow victims outside of study 
hours then you can go somewhere else 
and pay only the tuition fee. 

I decided togoforthe all-singing, all- 
dancing, meals and microchips inclusive 
version — and I wasn't disappointed. 

The Surroundings 

I spent a very pleasant two days in the 
Crest Hotel in High Wycombe. The 
accommodation was clean and 
comfortable and the service was fast and 
efficient, executed with a lavish amount 
of goodwill. During a sub-zero February 
weekend {you remember thosel) there 
wasn't so much as a hint of a draught. 

The course was exceedingly hard work 
and after a whole days brain drain it was 
nice to know that there was a decent meal 
waiting and a good night's sleep. 

Two si/eable rooms had been set aside 
to accommodate the huge amounts of 




electronic equipment which had been 
bought in to cope with the large numbers 
of 'students' who were attending that 
weekend. One room was allocated to the 
under 14s and the other was for the more 
mature students. BySaturday morntngthc 
jumble of wires, polystyrene cardboard 
and plastic which had infested the rooms 
on Friday evening had been transformed 
into a very spruce looking set-up with 
Commodore 64s and 128s adorning tables 
around the walls. 

In the lobby outside there was a 
' plentiful supply of tea, coffee, biscuits and 
orange squash for those who fell by the 
wayside and had to have a break for 
resuscitation. There was a morning break 
for coffee and an afternoon break for tea, 
just like those long ago playtimes at 
school. These were quite productive in 
themselves as everyone was able to get to 
know each other and compare notes. 

The Mentors 

Vou may possibly have heard of Ardmore 
Adventure before reading this article, 
since for some time the company has 
been involved in running children's 
adventure holidays. 

The first computer weekend was held 
in April 1995 and more have been run at 
regular intervals since then. Ardmore had 
realised — through contact with parents 
— that many adults were uneasy with 
computers and suffered from that disease 
which is common among those of us who 
are no longer teenagers — technophobia. 
It must be very frustrating for parents with 
school age children to realise that there is 
one homework subject on which they can 
give absolutely no useful advice at all. 



The weekend I attended was graced 
with six exceptionally gifted Ardmore 
staff who come from a variety of walks of 
life and dedicate their weekends to the 
alleviation of the sufferings of those who 
are less hi-tech than themselves. 

Doug Gregory, who is a teacher by 
trade, oversees operations, and he is ably 
assisted by Eric Doyle — computer 
journalist, photographer and 
experienced programmer. Paul and 
Keith, both college students studying 
computer related subjects, take the junior 
class {commonly referred to by Ardmore 
staff as the advanced group!). Beginners, 
like myself , are assisted by Lee, who is also 
involved in education in his other life and 
John who claims to be an estate agent 
from Monday to Friday, As I said, a mixed 
bunch but a very well chosen and able 
groupof advisors. The course was running 
at maximum the weekend I attended but 
no matter how few pupils sign up there 
will never be less than two staff. 

As I mentioned earlier, when the 
course begins you are told that you can 
really do as you please. This is the only 
rule which must be adhered toal all times. 
With such a diverse mixture of staff 
available, there is always someone who 
can advise you on any subject under the 
Commodore sun. I began on Saturday 
morning as an absolute beginner and I 
like to think (hat by Sunday evening I was 
no longer exactly thai, 

The Enthusiasts 

The weekends attract an incredible 
variety of people and the one which I 
attended was especially diverse since 
many of those present had actually won 
their weekend break in a Commodore 



Weekend Break 



spot the ball competition (yes, people do 
actually win them!). 

What I found most surprising was that 
there were people present who had never 
even touched a computer in their lives 
before — even I have a certain amount of 
hands-on experience. 

These particular individuals were 
usually those who wanted to find out a bit 
about computers before actually 
investing their hard earned money in one. 
It seems to me an eminently sensible idea 
since if you don't know the difference 
between hardware and software and 
you've never even seen a disk drive then 
the task of choosing and purchasing a 
computer from the enormous variety at 
present available on the market is 
daunting at best and terrifying at worst. 

At the other end of the spectrum were 
those who owned C64s, knew their way 
around the keyboard fairly well, had a 



The Curriculum 

The course has no strictly formal 
structure. Probably the best way to give 
you some sort of idea about what is 
available is if I detail how my teaching was 
arranged and what I was able to get out of 
it, 

It would be impossible to have an 
inflexible curriculum since the organisers 
have no idea what sort of span of abilities 
they wil be dealing with, in terms of 
micro-knowledge, until everyone turns 
up on the first day. 

The initial task for everyone is to 
declare themselves an absolute beginner 
or otherwise. I was the former and so I was 
treated to a well planned and instructive 
two hour tutorial on Basic. I was sharing a 
C64 with a brilliant fellow illiterate called 
Letty and together we managed to 
progress through our tutorial sheets in 
leaps and bounds. 




grasp of Basic, possibly a smattering of 
machine code and had come to a sort of 
halt in their self-teaching programme. The 
weekend for these types, regarded by 
myself as the boffins of the group, 
provided the consolidation of their 
knowledge and the pointers they needed 
to set them leaping ahead once more. 

I have been involved in the computer 
industry for some time and the 
individuality of those I come into contact 
with has never ceased to amaze me. A 
policeman, a lady who runs an aquatic 
garden centre and an animal nutritionist 
were just three of the people who were 
thrown together for a weekend with 
nothing in common bar an interest in 
computers. If you were to deal with the 
weekend merely in human terms, it 
provided a chance to associate with some 
very interesting and intelligent people 
but of course there was much more to it 
than that. The most important part is still 
to come. 



These sheets were compiled by Doug 
Gregory and are concise and very well 
structured. They deal with Basic in simple 
steps giving practical exercises for 
illustration. Fundamentally, thesheetsare 
designed to make you feel at home with 
the computer and also with very simple 
Basic. They also serve to enable you to 
become familiar with the 64 which is very 
important when so many people feel 
nervous when confronted with a 
computer keyboard. 

After about 90 minutes my partner and 
I had managed to write and run a simple 
maths program for testing arithmetic. 
When we typed it in and it ran first time 
we felt like geniuses. The greatest asset of 
the course is that if you do get stuck then 
there is always someone within shouting 
distance who will be at your elbow in a 
few seconds to sort out your problems. 
This saves much poring over hot 
keyboards and much sweating over 
confused listings. 



After a sumptuous lunch we returned 
for more intellectual stimulus and found 
that we were about to be introduced to 
Logo. 

Logo is a language which is often used 
in schools to teach young children the 
type of logical thought which is necessary 
when working with computers. Logo is 
very simple to learn as a concept and I 
found that I was soon guiding my turtle 
around the screen and happily defining 
my own commands. I began to feel very 
self-confident about using it and for 
someone who has very littleexperience, it 
is a useful tool., although after about an 
hour I began to feel rightly or wrongly — 
that its uses are very limited. My fellow 
sufferers also seemed to be getting the 
hang of it fairly well, although whether 
this was due to the graphic human turtle 
demonstration with which the class 
kicked off will probably never be known! 

When you felt that things were getting 
perhaps just a little bit tedious, one word 
would see you whisked away to 
something different but equally 
instructive. During the afternoon period 
my fellow students became re-involved in 
Basic, learnt the wonders of music 
programs on the 64 of just had a quick go 
at Impossible Mission for some not so 
light relief. 

While I was becoming immersed in 
Basic and Logo, the two other groups 
were in session. The children's section of 
the course was held in a next door room 
and I presume that it was sound-proofed 
in some way as hardly a murmur was 
heard from that vicinity all weekend. 
Most of the under 14s had a vast amount 
more experience of computers than their 
adult counterparts and were perfectly at 
home with the electronic beasties. They 
too could come and go as they pleased to 
a certain extent although supervision was 
such that parents had no worries about 
the welfare of their offspring. 

The advanced group, under the 
guidance of Eric Doyle, were learning 
more about machine code and having a 
look at some more complicated 
programs. Many of them bought their 
own programming problems with them 
and these were dealt with in due course so 
that they were able to go home at the ejid 
of the weekend with the necessary 
knowledge to continue their machine 
code masterpieces. 

Sunday was not a day of rest. It was 
dedicated to the teaching — in the 
beginners group — of the use of Easy 
Script, Commodore's word processing 
package. This may sound a little odd> to 
devote a whole day to the use of a word 
processor, but I think there was a lot of 
sense behind this. Many of those present 
were looking into the possibility of buying 
a computer to help them with either their 
own small businesses or merely their 
domestic administration. Using a word 
processor shows you very quickly and 
simply what can be done with very little 




knowledge and illustrates the power of 
the many software utilities packages 
which are available at the moment tor the 
64 and hopefully in the fairly near future 
for the C126. 

By the time we finished for tea on 
Sunday evening I knew that E would be 
able to return to the office and impress 
everyone with my technical knowledge 
which had definitely increased one 
hundredfold since I left on Friday 
afternoon. 



To be honest, it is very difficult to find 
any specific criticisms about the weekend. 
Perhaps a little too much time was 
devoted to Logo but then I could have 
stopped doing that and gone on to an 
alternative occupation if I had been really 
bored, I would have tiked to improve my 
handling of Basic a little more but it was 
only lack of time that prevented me from 
doing so. 

As a weekend with a difference, it's 
very enjoyable. And as a course in 



computing it's very instructive, If you 
have a couple of days to spare and you 
want to use them constructively, I 
thoroughly recommend a computer 
weekend. Mind you, I'd used my brain so 
much that 1 had a lot of difficulty getting 
back to the grind on Monday! 

Touch Line 

Ardmore Adventure holidays are run all 
year round at the Challenge Centre, 
llanfyllin, Powys, Mid Wales. Special 
weekend courses can also be arranged for 
groups from schools or businesses. 
Courses already arranged around the 
country in 1986 are as follows: 
High Wvcombe 4-6 April, 18-20 April 

7-9 March, 21-23 March 
Coventry 16-18 May 

Portsmouth 23-25 May 
High Wycombe 30 May-1 June 
Cardiff 13-15 June 

High Wycombe 27-29 June 
Runcorn 12-14 September 

High Wycombe 3-5 October 

Prices 

Computing course £30 
Dinner, bed and breakfast £27.50 per night 
Up to three children can be 
accommodated free when accompanied 
by two adults. 



EXTENSION 64 

★ SUPERB INTERRUPT DRIVEN SPRITE CONTROL 

★ UP TO 64 SPRITES ON SCREEN SIMULTANEOUSLY 

★ AUTOMATIC MAZE RUNNING FEATURE 

★ AUTOMATIC ANIMATION 

★ AUTOMATIC JOYSTICK/KEYBOARD SPRITE CONTROL 

* MODE SELECTION WITH A SINGLE COMMAND 

* PRINT DIRECTED TO HIRES SCREEN IN Bn" MAP MOOES 

★ PLOT. DRAW, CIRCLE, BOX GRAPHICS COMMANDS 

* EASILY IMPLEMENTED SPLIT SCREENS AND SCROLLING 

* INTERRUPT DRIVEN SOUNDS, WITH QUEUErNG 

* RENUMBER, AUTO, DELETE. RESTORE LINE NUMBER etc. 

★ BLOCK SAVE/LOAD, DlSK/TLOAD COMMANDS 

★ HEX & BINARY. BIT TEST/SET/RESET, DEEK/DOKE 

* IMPROVED ERROR HANDLING, ON ERROR GOTO/GOSUB etc 

* IF ... THEN ... ELSE, WHILE ... WEND, REPEAT ... UNTIL 

* PROC, DEFPROC, ENDPROC FOR BETTER STRUCTURE 

EXTENSION 64 completely eliminates the need for all those unintelligi- 
ble PEEKs and POKEs and provides easy control of ALL the C64's 
features. The carefully designed and very powerful new commands 
make extensive use of the C64's interrupts to do a lot of the work auto- 
matically, "behind (he scenes". For example, if you top up the sound 
queue you can play a th ree-part tune in strict tempo while you list and edit 
your program. 

EXTENSION 64 is available m cassette, disk or cartridge complete with 
manual and six demonstration programs at the special introductory price 
of- 

Cassette £7.95, all inclusive 

Disk all inclusive 

Cartridge . .. £1 4,96, all inclusive 

Send cheque or PO or phone Access/Visa details to: 

KNIGHT SOFTWARE (Dept YC) 

24 Badger lane, Ingl&by BarwiDk, Stockton-on-Tees TS170HN 
Telephone (Dft42) 762540 



COMMODORE 64 

EVER HAD A LOADING PROBLEM? 

Then send off for WIZARD'S TAPE HEAD ALIGNMENT KIT - No one shou Id be without 
one! 

The mot) common causa of loading laJlure Is bad alignment ol your tape heads. This 
*i ' ■ allows y ou Eo sat up the tape head* Ol your tasselle unit for the best potaible leading 
conditions. In many e&MH (hi* will makea remarfceble dilterence in loading reliability, 
Qui kit comprises of: 

1] A precision recorded casseUe containing 4 MphiaiiCited tost program 
2] A special adjustment screwdriver. 
3 1 A direction indicator. 
4) A turning meter. 

5 1 A detailed instruction booklet *mi diaarAmft 

■0] A l oadi ng Doctor -1o help diag noae any loading problems. Al I or this lor only EIL9S"! 

COPY KING — PLUS 

■ Revolutionary new copier for FAST LOADING programs. 

' FREE this montn a suite el additional back up routines. 

' Striped loaders. Picture loaders et£, handled with ease 

' Back up copies are made on blank TAPES at fast speed (faster than disc) I 

" Exlremely easy lo use - no technical knowledge required. 

' No additional hardware and no second £SM#if* record** ire required- 

1 we believe this i» cVo machine, code copies it unrivalled in performance 

' Buy the markei leader. Great value al £7,99 

BARGAIN JOYSTICKS!!! 

Incredible value - Brand new Quickahot II Joysticks al only £1.45 including P&P 
Features include - "Aurtoflre 'Thumb and (rigger finger fire burfans. 'Built in suction 
cups. "New improved design. "Fits any computer with Commud^rv"Ar.i-i joystick 
ports. (Not the plus 4/C1&) 

HALF PRICE SPECIAL THIS MONTH1!! 

Copycal and Lightning Load Eorjaihar for only ££,», Usually £5 ,95 each COPYCAT - 
our highly popular I ape to tape oack-up co-pier ior Commodore/alandard rale loading 
systems 'Wizard sound eifecis. Cassette magic sense 'Thousands sold- 
JGHTNING LOAD II - Converts almost all your slow loading games/programs infa 
&UP£HFA$T TURBO loading versions on tape ' The ledious wart lor loading is over 
when you buy I his excelled program. 
rapid dispatch ol orders 

All pncea INCLUDE flj» for admin istrahon and U.K. PAP Europeans please ADD 
SDp. Outside Europe ADD £1 .00. Overseas orders welcome. All payments must be in 
pounds sterling. 

Cheques, POs to: 
WIZARD SOFTWARE (Dept. B) 
59, THE MARLES, EXMOUTH, DEVON EX8 4NE 



Save the Galaxy from the evil Alana 




Aiiu 






A Strategic Action Adventure in Metaspace 




SPECIAL FEATURES include; 

* 12 Arcade and Strategy games 
in One Program 

1Q.D00 Metaspace locations 

Superb sound and 3D graphics 

A major battle of wits 



★ 
★ 



STARSHIP ANDROMEDA The final frontier in space exploration 

OUT NOW 



Available from all good software retailers — if it's not there, please order it — or in case of 
difficulty send your crossed cheque/RO. made out to Artolasoft U.K. Ltd., including your own name 
and address, to Ariolasoft U.K. Ltd., 68 Long Acre, London WC2E 9JH. 
STARSHIP ANDROMEDA 064 disk £12.95-064 Cassette £9.95 
UK orders only. Prices include P&P Please allow 28 davs for delivery. 
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HIGH PERFORMANCE PROGRAMS 







VET ANOTHER PRINCESS IS 6N NEED OF 
rescue. Using all your Kung Fu skills, you 
must battle your way through five floors 
of the wizard's temple in order to rescue 
her. As is only to be expected, the wizard 
has arranged a welcoming committee Hji 
you to try and ensure that you don't 
succeed in your quest. 

Control of your character is simplicity 
iiself. Leaving the joystick button alone, 
you can move left and right, jump and 
duck. Holding the fire button down puts 
you into an ottenvive mode aiul vihi f<m 
now aim kicks left and right as well as 
performing a jumping kick and a 
squatting kick. If you press the space bar 



There is of course a price to be paid for 
vour error of timing. This is in the form of 
loss of energy. In the top left hand corner 
of the screen are two bars representing 
energy levels for you and your adversary. 
Should your energy drop to zero, you lose 
one of the three lives. 

E d< h level must be completed within a 
certain time limit. A clock starts off at two 
thousand and quickly counts down 
towards zero. Failure to reach the stairs at 
the end of the time limit again results in 
the loss of a life. If you do reach ihe stairs 
in time, you receive a bonus based on the 
amount of time you, had left and the 
amount of energy. Score 40,000 points 
and you gain an extra life. If you lose a life, 
you must start that particular level from 

t t-r-itj- l-i -a re a in tint trni if flfir'L jnrl PflPrcv 



and it requires several blows before you 
can gel his energy level down to zero. It 
you have killed all the baddies on a 
particular level and then beaten the 
guardian, you can reach the stairs and so 
gain access to the next level. Starting a 
new level gives you a chance to get your 
breath back as well as resetting your clock 
and energy bar. 

Points are only awarded if you dispose 
of your opponent cleanly i.e. you don't 
have to wrestle lo get him off. How much 
you score depends on how many blows it 
lakes to kill them and what move you 
used. Punches and flying kicksscore more 
than ordinary kicks. 

Your opponents on the second level 
are of a totally different nature. Falling 
balls and vases contain snakes and 
dragons and mystic globes explode 
around you. Falling objects can be 
destroyed with jumping kicks or you may 
prefer to run out of the way of the 
dragon's fiery breath. Snakes can't be 
kitted but must be jumped over. Dwarves 
also appear who, given the chance, like to 
somersault on to your back and sap your 
energy. 

The next levels introduce the only 
other kind of nasty to be met in the game - 
killer bees. These can be killed with a 
single kick or ounch, The baddies start to 



COMMODORE LISTINGS ARE RATHER 
well known for the horrible little black 
blobs that always abound. Unfortunately 
the graphics characters which are used to 
represent graphic and control characters 
do not reproduce very well and they are 
also difficult to find on the Commodore 
keyboard. 

In future all control and graphics 
commands will be replaced by a mnemonic 
within square brackets. This mnemonic is 
not typed out as printed in the magazine 
but rather the corresponding key or keys 
on the keyboard are pressed. For example 
(RIGHT | means press the cursor right key, 
you do not type in [RIGHT]. All of the 
keywords, what keys to press and how 
they are shown on the screen are shown 
below. 

Any character that is accessed by pressing 
shift and a letter will be printed as 
[Sletter], 

[SA] shift and A 
[s+] shift and + 

Any character that is accessed by 
pressing the Commodore key and a letter 
will be printed as ICIetter] 
[CA] Commodore and A 
[C+] Commodore and + 
[CI] Commodore and 1 



Mnemonic Symbol what to press 



[RIGHT] 
[LEFT] 

1UP] 

[DOWN] 

[PI] 

[F2] 

[F3l 

[F4] 





iHi 



left/right 



shift left/right 



Shift & up 
/down 



up/down 



fl 



shifl & fl 



fa 



shift & f3 




LISTINGS 



If any characters are repeated the 
mnemonic will be followed by a number. 
This number is how many times you 
should enter the character. Any number 
of spaces over one will also be 
represented in this form 
[RIGHT10] press cursor right 10 times 
[C+10] press Commodore and + 10 
times 

[SPC10] Press the space bar 10 times 



Any other characters should be easily 
recognisable for example CTRL-N means 
press CTRL and N and LEFT-ARROW 
means press the left arrow. 

Any number of mnemonics can be 
enclosed in brackets for example 

[SA10,5PCI0,SA10] 

means type 10 shift A's 10 spaces and 
another 10 shift A's. 



Mnemonic Symbol what to press 



|F r '| 
[F6] 
FT] 
[F6] 

[CLEAR] 
[HOME] 
[RVSON] 
[RVSOFF] 






f5 



shift & f5 



shift & f7 

shift & CLR 
/HOME 



CLR/HOME 



CTRL & 9 



CTRL & 0 



Mnemonic Symbol what to press 



[BLACK] 



[WHITE] 



RED] 



[CYAN] 



[PURPLE] 



[GRLLNI 



[BLUE) 



[YELLOW} 





CTRL & 1 



CTRL & 2 



CTRL & 3 



CTRL & 4 



CTRL & 5 



CTRL & 6 



CTRL & 7 



CTRL & a 




WELCOME TO THE 



In part three, Allen Webb 



s more to your growing 



machine code skills. 



HFLLO ACAIN r RFADY FOR YOUR NFXJ 
dose of ecstasy? Well, last month's 
homework was pretty simple, wasn't it? 

Question one really followed on from 
the simple example in the last part. It 
simply writes CAT in white letters in the 
top left hand corner of the screen. It won't 
take much looking, however, for you to 
notice that it's a rather poorly written 
routine. By the end of this month's 
episode you'll be able to write it in a much 
slicker way. 

Listing 1 shows the routine again 
written using the format of the HYPA 
Hjmc assembler (see Your Commodore 
March issue). Lines 110 to 160 put the 
"POKE" values of C, A and T on to the 
screen. Lines 170 to 200 colour the letters 
white. 



r 



Lifting 1 

10 ASSEMBLE 100,1 
100 REM *~$C000 
110 REM LD A 3 
120 REM ST A $0400 
130 REM LDA 1 
140 REM ST A $0401 
150 REM LDA 20 
160 REM STA $0402 
170 REM LDA 1 
180 REM STA SD800 
190 REM STA $D601 
200 REM STA $D802 
210 REM RTS 
220 REM ] 



J 



Question 2 actually asks you to write a 
routine. Listing 2 gives one solution. 
Location 1000 holds a value which is put 
into the screen colour. 

You call the routine with: 

POKE 1000.COLOUR: SYS 49152 



Listing 2 

10 ASSEMBLE 100,1 
100 REM ^SCOOO 
110 REM LDA 1000 
120 REM STA SD021 
130 REM RTS 
140 REM ] 



Lastly, question 3 asks you to play 
games with the border colour. Listing 3 
does this. The Y register holds the border 
colour and is incremented to change the 
border. 




Listing 3 

10 ASSEMBLE 100,1 
100 REM *^SC000 
110 REM LDY £2 
120 REM STY JDQ2G 
130 REM INY 
140 REM STY $D020 
150 REM INY 
160 REM STY $0020 
170 REM RTS 
180 REM J 



If you try this routine, you will not 
notice any effect except for the border 
turning purple. This is simply due to the 
speed of the routine. If you repeatedly 
call the routine as with the Basic line: 

10 SYS 49152: GOTO 10 

You will see a purple border with inter- 
mittent lines- 

Again, this is a messy bit of program- 
ming. Let us consider a simple loop. In 
Basic, you loop by testing a variable and 
branching to a specified line. Machine 
code uses a similar approach. Consider 
Listing 4: 



Listing 4 

10 ASSEMBLE 100,1 

100 REM *=$C000 

110 REM LDY £2 

120 REM LOOP: STY $D021 

130 REM INY 

140 REM CPY £4 

150 REM BNE LOOP 

160 REM RTS 

170 REM I 



Line 110 sets the Y register to the initial 
value. Line 120 sets the border colour. 
Line 130 increments the Y register and line 
140 compares the Y register to four. If 
thevalue of the Y register is not equal to 
four then the code jumps to the label 
LOOP and continues execution. When 
the Y register contains four, the routine 
ends. This is a much better routine than 



Listing 3. The instruction CPY £4 
assembles to two bytes. The first byte is 
the code for CPY (Compare V). The 
second byte holds the number of bytes 
through which the program counter must 
be adjusted to jump back to the label 
LOOP (offset), I don't intend to go into 
how the offset is calculated since most 
assemblers and disassemblers deal with 
the problem for you, CPY can be used in 
three addressing modes; 

Absolute, for example CPY $100 
Immediate, for example CPY £2 
Zero Page, for example CPY $FF 

Naturally, there is an equivalent 
command for the X register: 

CPX (ComPare X) 

You will slill find that the routine isstill 
pretty fast. As is the case with many 
applications, you may find it necessary to 
slow down machine code. A crude 
method is to use the NOP (No Operation) 
instruction. This instruction does 
absolutely nothing! Surprisingly enough, 
it has some uses: 

1) To deliberately introduce minute 
delays to fine tune timing. 

2) To eliminate unnecessary code without 
reassembling your code. 

Perverts who write using an assembler 
based in a machine code monitor will use 
NOPs often since it's an easy way of 
leaving space for additions to code. Try 
stuffing a few NOPs in listing 4 between 
lines 120 and 130 and see what happens. 

Last month I described the simplest 
addressing modes. Whilst they are inval- 
uable, their versatility s limiled. The next 
mode uses a simple indexing with the Xor 
Y register. Depending on the memory 
locations position, this acts in either 
absolute or zero page modes. Here are 
some examples: 

Absolute Y indexing LDA $1000,Y 
Zero Page X indexing STA $OD,X 

This mode is quite simple to 
understand. The Y or X register acts as a 
counter specifying an offset from the 
specified address. The microprocessor 
adds the offset to the address and 



performs the instruction on the resulting 
address. Consider the instruction: 
STA 1024,Y 

If the Y register contains 0, then the 
•iivumulator will be sicjred in location 
1024 (1024+0=1024). If the Y register 
contains 1, the accumulator will be stored 
in location 1025 and so on. It therefore 
follows that we have a simple way of 
performing actions on a row of locations 
of up to 255 characters length (Y and X are 
8 bit registers - remember?). This can be 
used to rewrite program one of last 
month's homework. Consider listing 5: 



Listing 5 

10 ASSEMBLE 90,1 

90 REM *=$C000 

100 REM LDY £0 

110 REM .LOOP: LDA TABLE ,Y 

120 REM ST A $0400, Y 

130 REM LDA £1 

140 REM ST A $D800,Y 

150 REM INY 

160 REM CPY £3 

170 REM BNE: LOOP 

180 REM RTS 

190 REM .TABLE: £8:3.1,20 
200 REM ] 

. — — 

Line 190 holds the "POKE" values of 
CAT as a tableof three bytes. We enter the 
routine with Y containing zero. During* 
the first pass, the accumulator is loaded 
with the first byte in the table (line 110) 
and this is put in the top left hand corner 
{line 120). The colourscreen isset to white 
{lines 130 and 140). The Y register is incre- 
mented and loops back to process the 
second letter, if its value is not equal to 
three {line 160). 

This, I hope you'll agree, is neater than 
the original version. Whilst the size is not 
greatly reduced, once you start writing 
large routines you'll see the difference. 

Before I move on to ihe next form of 
addressing, how about a small diversion? 
It won't take a lot of thought to spot that 
Listing 5, or something similar, can be 
used to print blocks of text. There are two 
ways of printing text: 

a) Direct moving of text as in Listing 5, or 

b) Printing it in the same way as printing a 
string in BASIC. 

In Ihe C64's ROMs are two useful 
routines which can be readily used. First 
we have a routine starting at location 
SFFD2. This acts in the same way as PRINT 
CHRS(X). To use it you simply load the 
Accumulator with the character to be 
printed and call the routine. Rewriting 
Listing 5, we get: 



Listing 5 

10 ASSEMBLE 90/1 

90 REM *=$C00O 

100 REM LDY £0 

110 REM .LOOP: LDA TABLE,Y 

120 REM JSR SFFD2 

130 REM INY 

140 REM CPY £3 

150 REM BNE LOOP 

160 REM RTS 

170 REM TABLE.SCAT 

1S0 REM ] 




This prints CAT at the current cursor 
position in the current cursor colour. The 
text is stored in line 170 as ASCII codes and 
we don't need to worry about updating 
the colour matrix. The JSR (Jump 
SubRoutine) is the same as GOSUB in 
Basic; 

We can simplify matters further, by 
using a routine in the Basic ROM at 
$AB1E. This prints a whole sentence for 
you. Two requirements must be fulfilled: 

i) The sentence must end with a zero byte. 

ii) Before calling the routine, you must 
load the Y register with the most signifi- 
cant byte of the start address of the 
sentence, and the Accumulator with the 
least significant byte. Do I hear grunts of 
confusion. OK, here's a quick tutorial. 
Assume that the sentence starts at the 
address SC010. This is stored as two bytes, 
$C0 and $10. The high byte, SCO, is called 
the most significant byte and the low byte, 
$10, is the least significant byte. 

Here is our example again: 



Listing 6 

10 ASSEMBLE 90.1 
90 REM*=$CO00 
100 REM LDA £< TABLE 
110 REM LDY £>TABLE 
120 REM JSR SAB1E 
130 REM RTS 

140 REM .MESSAGE: $CAT 
150 REM £B:0 

I . - - J 

Lines 100 and 110 take care of loading 
the message start address. £< means the 
least significant byte and f > the most 
significant byte. Line 150 holds the 
terminating zero byte, (try omitting it and 
see what happens!) 

We now have a very short, but rather 
slow, routine. It's slow because it uses the 
rather lengthy print routine in ROM. If 
you want to write an adventure, use the 
approach used in Listing 6, If you want to 
write a fast game with flicker freegraphics 



changes, direct data movement will be 
necessary. 

The main drawback with simple 
indexing is that you specify the start 
address in the object code and this can 
only be changed by directly altering the 
object code when the code is running, In 
olherword, like rewriting a Basic program 
while it's running. Whilst this is a perfectly 
acceptable technique, I'm not that keen 
on it. A better approach is to use an alter- 
native indexed mode called Post-Indexed 
Indirect Addressing. This is rather a grand 
name for a fairly simple idea. In simple 
indexed addressing, you will recall that 
we specified the address concerned in the 
mnemonics, eg: 

LDA $1000Y 

In Post-Indexed Indirect Addressing, we 
store the address in a zero page location 
and specify that address in the 
mnemonics. Note that we use brackets to 
signify this mode: 

LDA ($FB),Y 

The action of this instruction is to add 
the offset kept in the Y register to the 
address stored in the byte pair $FB and 
load the accumulator with the contents of 
the resulting address. The address is 
stored with the low byte first as usual. 
Here is an example: 

The equivalent instructions for: 

LDA $C010,Y are: 
LDA £$10 
STA $FB 
LDA £$C0 
STA $FC 
LDA <$FB),Y 

If Y contains five, the instruction adds 
five to the address in $FB, $FC giving 
SC015. The accumulator is then loaded 
with the contents of SC015. 

Consider: 



Listing 7 

10 ASSEMBLE 90,1 

90 REM *=$C000 

100 REM LDA £ < TABLE 

110 REM STA $FB 

120 REM LDA £ > TABLE 

130 REM STA $FC 

140 REM LDY £0 

150 REM XOOP; LDA ($FB),Y 

160 REM JSR $FFD2 

170 REM INY 

IfiQ REM CPY £3 

190 REM BNE LOOP 

200 REM RTS 

210 REM TABLE: $CAT 

I — 



C64 




Compare this to Listing 5. Lines ISO to 
210 correspond exactly to lines 100 to 180 
in Listing 5 (except for the different 
addressing of course). Lines 100 to 130 put 
the start address of the message into the 
zero page locations $FB and $FC. 

Whilst this routine is more complex 
than the earlier versions, it has one 
powerful virtue -it is easier to change the 



address processed. You should also notice 
that this addressing mode uses the Y 
register only, 

I'm sorry that this may appear a little 
complex, things should be clearer as we 
deal with further examples in later partsof 
the series. Here is a summary of the 
addressing modes described this time. 





ABSOLUTELY 


ABSOLUTE,* 


ZERO PAGE,X 


ZERO PAGE,Y 


(IND),Y 
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LDX 
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SIX, 
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OK, agony time. Two problems for you 
to consider. 

1, Write a routine which draws a line of 
stars along the top of the screen. 

2. Write a routine which puts the 
character set on the screen. 

Next month I'll deal with one more 
addressing mode and well move on to 
more on looping and other mysteries. 
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For help with Readingand Writing 



^01-405 4017 



a O Since 1975, 350,000 
adults have been helped 
to read and write better. 
^ If you want help look for 
I this sign. 

For further information 
Adult Literacy & Basic Skills Unit 
PO Box 213 London WC1 V 7ET 



THE FINAL C ARTRIDGE 

THE FIRST OUTSIDE OPERATING 
SYSTEM FOR THE CBM 64 * 




NEW FINAL 
CARTRIDGE 

INCLUDING 
FREEZER 




This new operating system built in a cartridge 
does not use any memory and is always there. 
Compatible with 98% of all programs. 



DISK TURBO - 6 times faster loading 
& times faster saving. 



TAPE TURBO - 1 Q times faster, even 
with files - normal Commodore 
commands - compatible with standard 
turbo's * 

ADVANCED CENTRONICS INTER- 
FACE - compatible with all the well- 
known Centronics printers and Commo- 
dore printer programs. Prints ill the 
Commodore graphics and control codes 
(important for listings). 

SCREEN DUMP FACILITIES - of low 

res Hi-res and multicolour screens!) 
Prints full page with 12 shades of grey 
for multicolour pictures even from games 
and programs like Doodle, Koala pad. 
Printshop etc. Searches automaticly for 
the memory -address of the Picture 
Special version available for the CBM 
801 and B03 printers 

24K EXTRA RAM FOR BASIC- 
PROGRAMS AVAILABLE: Twu new 

commands ..Memory read", ..Memory 
write". They move 192 bytes with 
machinelanguage-speed anywhere in the 
64K Ram of the CBM 64. Can be used 
with strings and variables. 

BASIC 4.0 COMMANDS - like Dload, 
Dsave r Dappend. Catalog, etc 

BASIC TOOLKIT - with Auto. Renum 
(incl Goto and Gosub), Find. Help, Old, 
etc. 

- works with C12B in the 64 mode. 



Original multicolour full page screen 
dump print out. 

PREPROGRAMMED FUNCTION 

KEYS: - Run, Load. Save. Catalog, Disk 
commands. List (removes all list- 
protections |- 

KEYBOARD EXTRA'S - Al uws ymi to 

delete part of a line; stop and continues 
listings; move cursor to lower lefthand 
corner. Pokes and Syscalls in He*. Typ- 
command operates your printer as a 
typewriter. 



COMFORTABLE EXTENDED ML. 
MONITOR: - with relocated load 
scrolling up and down. Banks witching, 
etc does not reside in memory, 

RESET SWITCH: - resets to monitor, 
resets with old. resets lo Hi-res printing; 
resets every protected program. 



ON OFF SWITCH 

need that one 



we hope you never 



rLP 

COMPUTERS 



Stops and continues almost every 
program and allows you to make a total 
back up to disk or tape automatically. 

Specs: Creates one file on disk or tape. 
Packs the program, 
Freezes 4 to 6 times faster than 
dedicated freezers. 

Menu driven: 

Freezer options include 

full page printing 

fore- and background colour changes 

reverse printing 

jumps to monitor or reset 

Training mode: 

kills sprite collision detection. 

14 Days money 
back guarantee 
if you are 
dissatisfied. 



1 2 Months repla- 
cement guarantee 



UK. ORDERS Available by the we 1 1 known 
Commodore Dealers or directly from 
H & P Computers 
9 Hornbeam walk 

Withe m Essen CMS 2 SZ England tL 
Telephone: 0376 - 51 14 71, 



Lopvriohc and feg»stere<J ifademark H R P ca fi puiet a 
WoJphMfUfcgchi 236 306 3 MV Roiierdam NaifwrHnds T B I 01O31 
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Mastertronic's Ski 



MASTERTRONIC 



Mastertronic is extremely well 
known for production of cut 
price software. Not a week 
goes by without a large number 
of Mastertronic's releases 
being quite high in the 
software charts. Well, 
Mastertronic is about to do it 
again with a range of cut price 
application software. 

The first venture into this 
market is the launch of Ski 




THE 



you to check dot lines — more 
about that later — change the 
printer type, change paper 



Writer. This is a wordprocessor type and print your document, 

that has been available in the File gives you all of the file 

good old US of A for quite a manipulation commands such 

while and has receiv ed a large as LOAD, SAVE and MERGE 

of Rood publicity together with a few disk 



amount or go 
becaue of its ease of use. The 
price for this package over here 
is a meagre £14.99. 

So what does Ski Writer 
offer? Well it's a full imple- 
mentation of a wordprocessor 
with enough features to suit 
most people. There are 
however a few items missing 



that would have made this 
package superb, but more of New Users 
this later. Typing/editing 



commands such as FORMAT. 
Facilities to use disk or tape for 
your documents is included. 

One of the main reasons for 
the ease of use of this program 
is the very comprehensive help 
function. Whenever you are in 
text mode help can be 
obtained on all of thefollowing 
subjects^ 



Documentation 

The manual for this package 
could almost be described as 
non-existent. It consists of 
three pages of very small 
printed instructions, the aim of 
which is simply to tell you how 
to load the package and what 
keys do what. 

Mastertronic says the 
reason for the lack of 
documentation is that the 
package is so easy to use that a 
manual is not necessary. After 
using the package for some 
while I'm afraid "that I must 
agree with them. 

In Use 

Upon loading the program you 
arc presented with the 
programs main menu. From 
here you can select Edit, this 
allows you to enter and alter 
text. Preview allows you to see 
how your text is going to look 
on printed paper before you 



Formatting 
Previewing 
Printing 
Cassette filing 
Disk filing 

All subjects are covered in 
quite close detail so if you have 
any confusion about a subject 
then one of the help files 
should make things clear. 

Dot lines 

Dot lines allows you to alter the 
layout of your finished 
document. A dot line is 
entered by placing a dot V 
followed by a one letter 
commmand and a number, 
Obviously it is very difficult to 
remember single letter 
commands so if you select the 
Edit menu followed by the 
format menu all of the available 
commands will be displayed 
and you can select the one that 
you require using the cursor 
keys. One important thing 
worth noting is that all the 
available functions are listed at 



attempt to print. Print will allow the bottom of the screen. For 



example, when editing text the 
bottom of the screen reads: 
F1 HELP, F3 Edit Menu, STOP 
Main Menu. 

Selecting one of these will 
move you on to another sub 
menu. For example pressing F3 
will display the following: 
Find, Replace, Format, Mark 
Copy and Cut 

As you can see everything is 
always easy to find and you 
don't have to remember a lot of 
functions. Anyway, back to the 
dot commands. 

The dot commands 
available allow you to set up 
the following: 
The line spacing 
Left and right margins 
Top and bottom margins 
Start page number and page 
numbering at the top of a page 
Insert comments into your text 
Justify the text 

As you can seetherearequitea 
number of formatting options 
open to you. There are 
however a few more com- 
mands. These are obtained by 
holding down combinations of 
keys and you can't get them 
from any menu. This means 
that the ones you do not use 
often are likely to be forgotten. 
Don't despair however as they 
are all documented in the help 
section. Some of the other 
commands available include 
underline and delete functions. 
Delete takes some time to get 
used to as it differs from the 
usual delete on the C64. The 
DEL key instead of deleting to 
the left of the cursor deletes 
the character under the cursor 
and moves the one to the right 
to that position. If you want to 
delete in the normal way, as 
you would when typing a line 
in Basic, you have to use the left 



piste? 



arrow key. This leads to total 
confusion and you usually end 
up deleting the wrong piece of 
text. Why couldn't delete have 
been kept as it normally is? 

Omissions 

If you intend to use a 
Wordprocessor for serious 
work then there are a couple of 
serious omissions> one of these 
is a word count and another is 
the provision of headers and 
footers. If you are given the 
task of writing a certain 
number of words P asyou would 
when writing a magazine 
article then you need a word 
count. If one isn't present then 
you have to resort to counting 
them by hand, not a fun job. 
Headers and footers are 
necessary on many documents 
for example you may need to 
put your name, the nameof the 
document and the page 
number on top of each page on 
a college report, with Ski Writer 
this cannot be done. 

Verdict 

Despite a small number of flaws 
you can't really knock Ski 
Writer at a price of £14.99 it is an 
excellent buy. Not only is it 
adequate for most tasks it is also 
very easy to use, this is very 
important. 

If you are looking for your 
first word processor orone that 
is easy to use you won't go 
wrong with Ski Writer. 
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5ki Writer 
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Q* What is Game Killed 

A A revolutionary powerful cartridge that now lets you play oil those 
impossible games without being killed** 

Walk fearlessly through gunfire, disaster and danger without a scratch. 

Ql Sounds drtticuit* 

A, It's simple. Just plug it in the back of your computer and press a button. 

You mean i can play my games a!) the way to the end. 
I don't believe if! 

Yes - incredible but truel it works on oil those thousand* of games^wit 
sprite collision. 

Sounds like science fiction! \ suppose it's available in 2001 
tfs here nowi 
Tfi be/re ve it when I see if J 
A Exactly, so why don't you go to your local 
computer shop. 

The Robtak Gamekiltar is ovoi labia frarr oik good 
computer dealers 

Enquiries to Robf ok (rormerfy known ai fiotcom) Ud, 
36 Market Pl ace, Fa Hod en Way, London NWl 1 6JP. 
Telephone 01-209 0 MB. 

Patent and copyright applied For 
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Mercenary 

Novagen C64 £9.95 cass, £12*95 disk 





YOUR SPACECRAFT HAS BEEN 
forced to crash land on the 
planer Targ. Unfortunately you 
soon find out that the inhabi- 
tants of the planet, the Palyars 
and the Mechanoids, are at war 
with each other. Vou are on 
your own, apart from your 
trusty computer, whatever you 
do from now on is your choice, 
though if you are lucky your 
computer may advise you. 

The mai n aim of the game is 
to get yourself enough money 
and experience to get another 
spaceship and off the planet. 
Mind you if you were feeling 
up to it you could help one of 
the waring factions out and 
earn some money as a 
mercenary. In fact when you 
start you are given the option 
of spending some of the money 
that you have in your posses- 
sion on a craft that belongs to a 
player, they even offer you the 

Time Tunnel 



opportunity of some work. Of 
course it is up to you if you buy 
the craft or not but it is a very 
long walk around the planet if 
you don't. 

Most of the action in this 
strange combination of 
adventure program and Night 
simulator, takes place over a 
very large 3D landscape. 
Buildings, bridges and other 
craft are all extremely well 
defined using vector graphics, 
as used on the arcade battle 
/one game. 

If you accept the Palyar's 
offer of employment as a 
mercenary, you must find 
your way to their briefing 
room, you are given the 
location so you should not 
have too many problems 
getting there. Did I say no 
problem? It took me quite a 
few hours and many games to 
find the lift that would take me 



dow n into the Palyars complex. 

The flight simulation 
element of the game comes 
inici play once you are in the 
ship. The flight simulation is 
not exactly difficult, you only 
have a speed indicator, 
altimeter and compass, but it is 
great fun especially if you fly 
close to the ground as you can 
see the 3D buildings getting 
larger as they come towards 
you. 

Not all of the action for this 
game takes place on the 
surface of the planet. Some- 
where in thecity isa lift that will 
take you down into an under- 
ground complex. This section 
of the game offers nothing 
really thrilling. In fact it is really 
just an extension of the old JD 
maze type games. Even so, 
careful exploration of this 
extension to the city is vital as 
you will find many useful items 
scattered around in the many 
underground rooms, including 
some cross hairs that can be 
added to your craft to help you 
shoot down enemy craft. 

Not only will you come 
across objects that will help you 
but you'll also find a great 
number of puzzles. Locked 
doors stop you from getting 
around the complex too easily, 
you'll need to find a key m g^t 
through these. To make 
matters even worse there are 
rooms which will move you 
great distances around the 
complex, this really helps in 
getting you lost 

As previously mentioned 



you are the one that controls 
the action. If you want to go 
around shooting things up 
then that's up to you. However, 
don't be surprised if you find 
yourself been blown out of the 
air by enemy gun ships. 

Mercenary is certainly I 
strange game to play as there 
are no set rules. Some people 
may like this but if you are just 
after a good shoot em up then 
you probably won t. It is 
possible to spend quite a lot of 
time feeling that you are 
getting nowhere, but explora- 
tiocn is important and it is 
worth mapping out as much of 
the city and the underground 
complex as possible, this will 
make it a lot easier to f ind your 
way around in a hurry, or even 
your way out of the complex 
and back to your ship. As 
mentioned, it's very easy to get 
lost and you can spend hours 
just going backwards and for- 
wards in your search for the 
exit. 

Mercenary is an extremely 
time consuming game and isn't 
one that you will load up for a 
quick five minutes. There is 
however a save game option so 
you don't have to worry about 
getting killed. If you do get 
killed you will find yourself by a 
new ship anyway, 

tf you are looking for a 
challenge and something to 
keep you occupied for a 
number of hours then take a 
look at Mercenary, it s great 
fun. 
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Money 



Captain Kidd 

Bug-Byte £2.95 
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THIS IS A VERY SIMPLE AND game which bears a vague 
quite addictive little arcade resemblance to Pat-man, 



Ace 

Case* 



You control a little charac- 
ter called Captain Kidd (in 
reality he's just a head who 
rushes around the board, t 
don't know what happened to 
his. body!) This poor little dis- 
membered cranium dashes 
around defusing bombs to slop 
himself getting blown to 
kingdom come. 

There are of course adver- 
saries to avoid and in this 
particular game they take the 
form of boots which are ready 
and witling to stomp on you at 
any given moment. At first 
they're not too difficult to 
avoid but as you reach the 
higher levels they multiply 
drastically as do the bombs. 
There are also numerous 



squares on the board which are 
marked with a skull and 
cross bones and if you Couth 
these then you dissolve instant- 
aneously. 

All the screens are identical 
except that you get a different 
background colour each time 
and of course more skulls and 
more boots. There are also lois 
of little marker flags which can 
gain you extra points, 

It's a very simple and a very 
old idea. You've probably got a 
lot of games like it at home. 
Having said thai, I don't think 
you'll be wasting your money 
and you get a nice little 
rendering of The Eniertainet in 
the background 

M,C, 





THE PLUS/4 SUFFERS FROM A 
severe lack of commercial soft- 




THE FAMOUS MUPPET CHAR- mission to save his friend 
atter, The Great Gonzo, is on a Camilla the chicken from being 



an Allied jet, your mission is lo 

■ stop the advance of enemy 
units. 
Ground forces consist of 
missile batteries and heli- 
copters. These are graphically 
very good, all objects getting 
larger as you fly past them and 
the helicopters complete with 
a ppw— — ^ moving rotors. 

In the air you will have to 
HHUEHH9 avoid the numerous enemy 

HmHUm planes that always 

ii i iwtfvw come at you from behind, 

7 MMmtfiSS'i m thank goodness you've got a 

I^^H IIyHiptfl rear view camera. Once you've 
I H JUS S' destroyed all of these then it's 

on to the ships. Your aim, sink 
the retreating force, 
re, Obviously all this flying 

ACE finds you in control of around and being shot at is 



the main ingredient in the 
Swedish chef's coq au vin. It's 
probably an idea lo include a 
warning with this adventure: 
it's a chock-a-block with the 
most appalling puns in true 
Muppet style. 

It's a joystick operated text 
adventure in which Conzo is 
given a series of options in 
choosing a vehicle for the 
particular terrain in which he 
finds himself. You can have a 
rolling horn blower, a diving 
light maker or even a walking 
bumper. There are several 
options and you must make 
sure you pick the correct one 
for your present location. 

The locations have chicken 
flavoured names, for instance. 



going to leave your plane in 
need of repairs. No problem 
here, simply call up the map, 
find your nearest base, and 
land on the runway. If you're 
really lucky then you'll find a 
refuelling plane in your area, 
catch this up and you can even 
refuel in flight. 

As previously mentioned 
this game has some very real- 
istic graphics. Ef you are daft 
enough to fly low you will see 
the hills and even ihe trees as 
they whizz beneath your plane. 

ACE is a game that no Plus/4 
owner should be without, it 
will keep you occupied for 
hours. 



ihe Egglantic Ocean, New York 
City and the Egg-yptian Desert. 

You need to amass a mini- 
mum of 75 points to rcath (he 
castle where Camilla is being 
held captive. You score points 
for successfully negotiating 
hazards and also for con- 
quering the foes you meet on 
the way, like sharks, eagles and 
even wild goats. 

Some of the screens involve 
dodging flying birds and 
bouncing eggs while others are 
maze type settings. 
It's very entertaining and the 
instruction booklet also 
contains a Muppet story. 
Eggsactly what the doctor 
ordered! 

M.C 
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Desert Fo* _ I 




EVERY SO OFTEN *A CAMI. 
appears thta first impressions 
would leave you ro think lhat it 
was a load of rubbish, the only 
thing is thai a few hours later 
you find yourself still playing il 
and going back to play it time 
and time again. Desert Fo* 
1mm I ! S (jold is one of I ht >s e 
mames. 

Desert Fox is a tombing I ion 
of bolh arcade and strategy 
games. Vou play the part of t hp 
Allied for< and must save all 
your depots before they are 
take over by Rommel s army. 
Lose one depot and ihe game is 
over, 

Upon loading you are 
presented whh a map of I he 
area in question, depending on 
Ihe level of play a varying num- 
ber of flags are present, these 
represent the bases lhal you 
must rescue from the dutches 
of I he evil Rommel. A number 



of ieons - small pictures 
- represent the options that are 
available to you. 

Selecting the Zoom icon 
allows you to find out infor- 
mation on a selec ted base. The 
informal! ion given is: I be 
number of enemy tanks 
present, the number of your 
Links present, how much fuel 
and supplies are there and, 
perhaps the most important, 
the n urn tier of hours before 
ihe depot IS Over run. Ihe 
number of hours of freedom 
i emainiri^. lor ihe selet ird site 
is also shown on an indie tilor a I 
the bottom of the screen, this 
gives you an indication of just 
how long you hjve gut lo get 
there and rescue your troops. 

The Radio icon turns on 
your lank's radio. This can be 
dir et red <a here w an I 

pressing the fire button gives 
you a surprisingly easy to 



understand radio message 
about what lies in this direc- 
tion. 

The move icon will move 
your tank . known as I one Wolf, 
in the direction that the radio 
beacon Is facing. Careful u $e of 
this icon together with the 
radio icon will allow you to 
1 r a v v I arcs u n i J t he ma p av oi d i ng 
the enemy as much as possible. 

If you are unlucky enough 
to fall for one of the enemy's 
little traps then you will enter 
the arcade sequence of the 
game. In all of ihe sequences 
the graphics and sound c an 
only be described as adequate 
bui tire fairly realistic and 
surprisingly quit k. 

If you meet up with a 
convoy you have lo protect it 
from enemy planes that are 
trying to blow it up. Your job, 
shoot down the planes, avoid 
the allied oiles or you will lose 
poinls. The cross hairs for your 
two sights automatically move 
lo ihe position of any pJanes, 
simply move the joystick left or 
right to fire the gun. 

Tiger finds you under attat k 
from enemy tanks, you can 
spot them on your radar and 
hear their missiles screaming 
towards you. With careful aim 
you can shoot the enerru 
shells, if you shoot the tank 
then their shells disappear as 
well. Your missiles tan he* 
guided so even it ihe tank is 
moving you stand a good 
chance of blowing him io 
pieces, not before he has had a 
good go ai vou. though. Each 
hit by the enemy will cause 



some damage to vour Link. ihi-. 
tan be repaired at one of the 
depots. 

In minelreld you suddenly 
find your tank completely 
surrounded by mines. Your aim 
is to get out of there alive. You 
can shoos rnrnes th.il are in 
front of you so this helps to 
clear a path. If you do hit a mine 
then of course you are 
damaged and you also get 
stuck in the sand wasting 
valuable time. 

Ambush is reminiseeni of 
the section in ihe St j i Wars 
arcade game, the bit where you 
arc 1 flying down canyon being 
shot at from the sides. Here 
your tank is going through a 
canyon, the enemy has gun 
emplacement on both cliff 
tare*,. You must destroy (hem 
before ihey pass your tank, if 
you don't then you will suffer 
damage. 

In Stuka Lone Wolf is being 
attacked by enemy lighters 
This section of the game is very 
similar to the Tiger lank 
sec tion, shoo! ihe enemv vviih 
your guided missiles before 
they hit you. 

Desert Fox offers enough 
variation throughout its play to 
keep you interested lor a lonu 
time. The different levels offer 
such a varying degree ot 
competition that you starl to 
take ihe attitude that as soon 
one level is finished you must 
have 1 a crack ai the next one. If 
you're after a good shoot them 
up then have a go at Desert Fox. 



■ 
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Comic Bakery 

Imagine £.95 Joystick required 




stunned by leaping G.K.H. 
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Zoids 

bUrlec h £7.95 




THE PLANET ZOIDSTAR LIES 
millions of light years from 
earth. Here the Zoidarians 
manufactured their war 
machines the Zoids, and the 
story goes on. 

Now there are two types of 
Zoids, red ones and blue ones. 
Vou play the part of Earthman, 
a man from no guesses where, 
who is going to merge minds 
with the blue zoids ultimate 
weapon, Zoidzilla, and take on 
the evil red zoids from within 
their own complex. 

However, as you descend 
into the heart of their city your 
craft is blown up and you see 
Zoidzilla disperse across the 
landscape. 

Red Patrols find these 
pieces of Zoidzilla and carry 
them off to eight of their city 
domes. Your task now is to find 
the eight pieces and then 
destroy the red army. 



Ark Pandora 

AlEigata £9.95 



Of course, as with all good 
stories, you manage to escape 
from your ships destruction 
with a very useful piece of 
equipment. Tank Zoid (what 
really exciting names!}, you 
merge minds with it and you 
become as one. 

All of the action in Zoids 
takes place within the area 
surrounding the Red Zoids' 
cities. Your position within this 
city is depicted upon a small 
map of the area around your 
tank, in the middle of your 
screen. You don't see anything 
as it really is as you are seeing 
everything through the eyes of 
Tank Zoid. If you ask me this is a 
very good excuse for making 
what could have been very 
interesting graphics appear on 
the screen as simple blocks of 
colour. Yes, you guessed it, 
you're blue and the enemy's 
red. 




Around the map you w 
find a number of icons. These 
show all of the equipment 
available to you and its status. 
Above the map is your pulse, 
below is that of the zoid. 
Careful monitoring of these 
will show you whai si ale both 
are in. 

Next you have the Mode or 
Weapon icons. The Railgun 
propels electromagnetic pulses 
at your enemy. You can fire 
normal missiles and attempt to 
jam the enemy's signals. 

Lastly you have information 
about your zoid, damage 
reports and that sort of thing. 

Moving your pointer over 
the map allows you to specify a 
direction in which you want 
your Tank Zoid to move. It will 
continue moving in the speci- 
fied direction until it can go no 
further. This allows you to 
walch the map for lurking Red 
Zoids as they are bound to take 
a few pot shots at you as you 
drive past. 

Combat in Zoids is a little 
strange and not that exciting. If 
you are using the railgun you 
are presented with a diamond 
shaped sight, you have to 
centre the enemy, represented 
by another diamond, in your 
sights and fire. This may sound 
graphically boring but to be fair 
it isn't. Martech has done a 
good job of making all the 
graphics look pretty even if 
they are a little basic. 

Firing missiles is a lot more 
complicated. You are 
presented with two map grids. 




One showing your enemy from 
above the other from the side. 
You have to select how much 
fuel to put m your missile, fire it 
and then guide it to your 
target. You control the missile 
on one map at a time, press the 
button to move between the 
maps. Action here is a little fast 
and I found it took quite a 
while before I was used 
enough to the controls to hit 
anything. Again nothing 
stunning but good enough. 

An exciting musical piece 
by Rob Hubbard helps 1<> set 
the scene for the game. 
Though I gettbefeelingthat he 
sets it too well and the game 
doesn't quite live up ro ii . f o he 
fair though, even though Zoids 
is probably not the most 
visually stunning game around, 
there is a lot to it and it will 
probably take a long time to 
master. 

The action is fast and 
furious, gel three or four Red 
Zoids on your tail and the only 
option open to you is lo run. Of- 
course you don't have to but I 
bet you'll end up starting the 
game from the beginning 
again. 

Zoids is very different to any 
other game and must be played 
for quite a while beforeyou get 
the hang of it and really start to 
enjoy it. If you can't be 
bothered to spend a long time 
on a game then Zoids probably 
isn't for you. If, on the other 
hand, you enjoy a challenge 
then the Red Zoids are waiting. 

^ r. 




ARCADE ADVENTURES ARE A 
type of game thai are 



becoming extremely common 
at the moment. 



As with any normal 
adventure the game must have 
an aim. In Ark Pandora you 
must retrieve the sacred scroti 
which is hidden on the island. 
While travelling in your search 
for this mysterious scroll you 
will meet both friends and 
enemies. Friends can be 
persuaded to help you in your 
task while the enemy will do 
his best to kill you off. 

IMothing unusual here I 
,here you say, well no there isn't. 
The main difference between 
this and many other arcade 
adventures is its presentation. 
Firstly all of the graphics are 
extremely colourful and very 
well animated, the running and 
jumping action of characters 



being one example. Secondly, 
most of the action is icon 
controlled. Pointing to the 
icons allows you to use objects, 
pick them up and put them 
down, select which way you 
wish to go once you reach the 
edge of t he screen and that sort 
of thing. 

When you get fed up with 
the game, which will take a 
long time as some of the 
puzzles are extremely 
complex, you don't have to put 
this game in the box with all 
your other 'dead' programs. 
Simply break out the screen 
designer that comes with the 
packages and create your own 
new screens. 

S.C. 
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FA Cup Football 

Virgin Games £7,95 



^SELECTIO N Of TEft H FQftH*T10WS | 

S*loct m formation for your ttoi* 
{A} 4-4-2 DEFEKSiUt H 

CB1 4-3-3 BnLAHCEG if 

tCJ 4-2-4 ATTACKING * 



STOKE 




IT'S QUITE SURPRISING THAT 
nobody's ever done an official 
FA Cup program, however 
Virgin has now rectified that 
situation with this new text 
only game- 
As a football manager, you 
are in charge of 10 teams (it's 
hard work these days in the 
soccer business). Theaimof the 
game is, of course, to getoneof 
your teams to the final at 
Wembley and then thrash the 
opposition. 

One of the game's strongest 
points, in my opinion, is that it 
can be played by up lo eight 
people at once. I've never had 
a game against the computer 
alone but 1 think that would 
become a little tedious. When 
there are several people 
competing it's pretty exciting 
and you can become very 



involved in your teams' 
performance. 

You start by choosing your 
10 sides from a choice of 124 
possible teams. Any ones left 
over are managed by the 
computer. It's quite a good 
idea to pick a few non-league 
teams since they can surprise 
you with occasional flashes of 
brilliance although I've never 
succeeded in taking one past 
the fourth round. The league 
clubs have all been given a real 
home and away rating based on 
their performance in the FA 
Cup over the last few years and 
also on their current league 
form. From the little I know 
about soccer it seems to be 
fairly accurate, although there 
is always room for surprises. 
Non-league dubs have a rating 
based on FA Cup history and 



recent results and attendances. 
Once you've chosen your 
sides then you watch the draw. 
Two little tokens roll on to the 
top of the screen and the 
names of the sides drawn 
against each other appear at 
the bottom and scroll upwards. 
In case you haven't kept a 
record of your teams, don't 
worry because each manager's 
initials appear next to the 
names of his sides. 

Once you've found out 
who you're playing, a screen 
appears on which you must 
indicate your team's tactics. 
These can be defensive, 
balanced or attacking. You 
are given this option for all 
your teams and in the first two 
rounds, where only non- 
league and third and fourth 
division clubs play, this is the 
only opportunity you have to 
guide your teams' progress in a 
particular match. Later when 
the big boys join in, you are 
given more opportunities to 
decide tactics, and these 
increase as you get nearer the 
final. Eventually you reach the 
stage where you can advise 
your team four times during a 
match and you are even given 
the option of bringing on the 
sub. 

There are also news flashes 
about various events which can 
affect your teams' morale, Your 
star player is having dodgy 
dealings with a ticket tout. Your 
goalie went out on the razz the 
nipht before the match and has 



a dreadful hangover. However, 
good things happen too - I was 
several times voted manager of 
the month' Although, once 
you've played the game a few 
times, you'll probably find that 
you've read all the news 
flashed and you'll begin to give 
them a miss. 

There is a state of play 
screen which shows how all the 
teams are doing in their current 
matches. Ninety minutes is 
clocked up in an equivalent 
number of seconds and you 
can speed this up if you like. It's 
amazing how many goals seem 
to be scored in the final minute 
of the game, I was leading 
Chelsea to a cup final win 
against Manchester United and 
was two nil up In the final 
minute my worthy opponents 
managed to score a staggering 
three goals! This circumstance 
detracts a little from the 
authenticity but certainly adds 
to the excitement. You can 
never be sure of a win until the 
final whistle blows. 

When you reach the final 
you are forced to make quite a 
few skillful decisions. Whether 
to agree to transfers for your 
best players, how to prepare 
them for the match etc. These 
all affect the team's perfor- 
mance so choose your answers 
carefully. 

One last point - you don't 
need to be an avid football fan 
to enjoy this game, I'm not. Get 
a few friends together and go 
out jnd buv it. 



Elektra glide 

English Software Cfe4/126£8.95 





THIS GAME BENDS OVER 
backwards to pretend that it is 



not a racing game like Pitstop 
or Pole Position. 



The game has you behind 
the wheel of u speedy racer 
which you must steer around 
the winding roads of Britain, 
America or Australia avoiding 
obstacles which appear in your 
path. Intelligent spheres, 
boxes, oil patches and electro- 
static columns dropped from 
overhead rockets. No 
problems about burning the 
rubber off your wheels or 
running out of road. Any over- 
steering is penalised by a drop 
in speed and your race is to get 
from A to B before your time 
runs out. 

Every time an obstruction is 
hit the carthumpstoastandstill 
causing precious seconds to 
tick by. It the course is com- 



pleted within the allotted time, 
any time remaining isadded on 
to the next, more difficult run. 

Although the cassette insert 
goes to great lengths to 
disassociate itself from similar 
3D simulations, a short period 
of deep thought will convince 
you otherwise. Imagine the 
obstacles are cars, they appear 
at random looming upfrom the 
horizon. Might just as well be a 
sphere or a box. Sorry about 
the dogmatic approach but this 
is not really different to 
anything already on the 
market. It is fast, and frantic fun 
and recommended for those 
who are tired of staring up hi- 
ies exhaust pipes. 

E.D. 



As exam time draws near, 




I ■ 



| . 

I r " "] 



I 



I 'I 



SOON 'O' LEVEL AND CSE EXAM TIME 
will be with us again, Mock exams will I 
have been taken and any areas needing 
extra work highlighted. Therefore it | 
seems a good time to look at some of the 
software available and to discuss their 
various attributes. Several of the leading 
publishing/software houses have 
produced revision packs which are all 
very individual so I shall deal with each 
firm in turn by looking at what they ire 
offering and how it is presented. 

Commodore Software 

Commodore has a range of revision 
software which includes: English 
language (the only one Tve seen); Geo- 
graphy - dealing with relief, climate, 
| farming, industry etc; f O' level French - 
general practice of tenses, verbs, 
pronouns etc; Computer Studies - logic, 
operational procedures, programming, 
data storage; Physics; Chemistry - basic 
techniques, reactions, periodic tables; 
Biology; Maths. 

The maths package consists of two 
separate units. Maths 1 covers arithmetic, 
algebra, geometry, trigonometry, and 
problems. Maths 2 covers arithmetic, 
equations, progressions, functions, 
calculus and trigonometry. In both 
programs three types of question are 
used. These are true or false questions, 
multiple choice, in which there are up to 
four choices and a series of questions in 
which the answer must be typed in. A 
booklet accompanying the programs 
doubles as running instructions and 
revision notes. 

All these retail at £9.99, 

Penguin Study Software 

Penguin has a long association with 
English literature study guides and these 
programs are a natural progression. They 
are purely revision aids and should be 
used in conjunction with the students 
own notes and a copy of the play being 
revised. The program takes the form of a 
database with excellent cross reference 
capabilities. If an essay is required on a 
given subject or image the program will 
search out all the references on that sub- 
ject and list them, thus saving the user 
countless hours thumbing through the 
text. Titles in the range include Romeo 
and Juliet, The Merchant of Venice, 
Twelfth Night, Julius Caesar and Henry IV. 



(Pet 



Basic routines, Visitode low level 
languages; Mathematics - transforma- 
tions, statistics, probability and odds, 
trigonometry; Physics - key formulae, 
light, machines and pulleys, circuits and 
Ohm s Law; Chemistry - the elements, 
molecular weight, preparation in the lab, 
Reactivity. All these packages cost £7.95. 




M P**ferQJevtf 

Longman's Exam Revision 



Longmans is another publisher which has 
used its expertise in writing textbooks to 
good effect in the field of computer soft- 
ware. Each package contains a cassette 
and a 12 page booklet and revision 
planner. 

Titles available are: French - a 2000 
word vocabulary list, revision on regular 
and irregular verbs, comprehension 
practice and a section all about France, its 
regions and specialities; Biology - class- 
ification of animal and plant kingdoms, 
genetics and inheritance, food composi- 
tion and a test of terms referring to the 
body; Computer Studies - how logic 
circuits work, file handling and useful 



Collins Cem Revision Software 

These are packages costing £6.95 each 
which extend the Gem Basic Facts books 
with the addition of a cassette. Each 
cassette contains four diff erent programs. 
The first is a random tester which helps 
determine any problem areas. The next 
two sections deal with helping the student 
to learn through a diagram with ordinary 
questions or multiple choice. The final 
section tests the student by means of a 
game against the computer. Four titles are 
available - Biology, Chemistry, Physics 
i and Computer Studies, 

I Pan Course Tutors 

At first glance the asking price of £14.95 a 
package seems a lot bu r on closer examin- 
ation they represent a bargain not to be 
missed. They are the product of an amal- 
gamation between book publishers, 
Heinemann and Fan, and software house 
Hill MacGibbon. A meaty combination 
especially when you add Collinsoft. 

Each package consists of two cassettes, 
a student guide and a copy of the approp- 
riate Pan Study Aid. These books have 
been around for many years and cover all 
essential parts of the syllabus, They 
explain how to tackle exam questions by 
giving examples and indicating which 
areas carry more marks. The books are 
very detailed and are labelled 'The 
complete guide to exam success". 

As if to contradict this the cassettes in 
this package are used in conjunction with 
the book. Cassette 1 has a series of 
diagnostic tests. From these you can assess 
your performance in one of three ways: A 
full analysis of your answers; a time 
, analysis; a written report showing any 
i weak areas and suggestions for further 

■ work. 

i Side two of tape one and both sides of 
i tape two are detailed teaching programs 
designed io help the student as much as 
I possible. Subjects covered are French, 
r Maths, Physics, Chemistry and Biology. 
r By the time this article reaches you the 
i long running teacher's pay dispute will 

■ hopefully be resolved. Should it not be so 
then the revision packages will hold even 

- more importance. If it is sorted out, they 
; are still a valuable resource and may make 
c the difference between a pass or a Grade 
I 1. 





Yes Its true !!! 

For a limited period we are giving away a £5.00 
Travel Chek for spending money on your next 
holiday with EVERY £50 SPENT. 
Thats not all folks »! 
your vouchers could also win you a FREE stay 
HOLIDAY for two or four people in our lucky 
numbers draw. 

ONE ENTRY FOR EVERY £5 VOUCHER 




r SOFTWARE 



Superscript 64 - Dish 41,00 

Superscript 128 - Disk , 74.00 

Superscript - Suoarbase 64 - Disk 99 00 

Superbwe 64 - Dijh r . , r , r . , . . .50.00 

SupBrbase 128 - Disk 71,00 

Suporba** * Supsricript 1 28 - Disk 1 39.00 




"INSTANT CREDIT' 



"INSTANT CREDIT" 



Terms 



All products are guaranteed for one year untess otherwise staled. Payment may/ be made by Access, Barclays &rd h Barkers drafi, Building Society cheque, 
cash or postal order, Sorry, cheques need five days for clearance. We reserve the right to change prices wMhout prior notice. All prlc** are Inclusive of VAT 

Please check before ordering lor carnage charges. 



Save your fingers a lot of 



work with our new software 



service* 



IT S THREE O C LOC K IN THE MORNING, 
You sit at the computer keyboard having 
just finished a marathon typing session 
entering one of the superb programs 
from Your Commodore. Your fingers 
reach for the keyboard and press the 
letters R f U and N/. You sit back 
expectantly and. , .nothing happens. 

Well, i r m sure that we have all had 
problem before now. When it does 
happen it's a matter of spending hours 
searching through the program for any 
typing mistakes. No matter how long you 
look or how many people help you, you 
can usually guarantee that at least one 
little bug slips through unnoticed. 

Here, at Your Commodore, we pride 
ourselves on the quality of listing that we 
print. Unfortunately, this usually means 
that they are also very long, thus taking 
longer to type in and leaving more room 
for errors, Al! of the listings in Your 
Commodore are taken straight from a 
printout of working programs, it is 
therefore very unusual for errors to 
appear in the magazine. 

Because of the length of our programs 
we do get a large number of requests from 
readers who would like us to put specific 




programs on tape or disk for them. 
Obviously this is very time consuming and 
means that we can't spend as much time 
working on the magazine as we would 
like. 

We are therefore proud to announce 
the start of the 'Your Commodore Soft- 
ware Service 7 . Most of ihe programs from 
each issue of the magazine will now be 
available on a single cassette for a price of 
just £4.00. We will not be making disks 
available since they would have to be a lot 
more expensive and more difficult to 
post. This shouldn't cause you any 



problems though as none of the programs 
will be protected and it will be a simple 
matter to save the programs to disk 
yourselves. 

All programs on the cassette will be 
saved using a tape turbo routine. 
However, we cannot guarantee that all 
programs will work correctly with this 
turbo routine present. We therefore 
recommend that before you use any of 
the programs you make a copy of the 
programs on your own cassette or disk 
and use this version of the program not 
the original. 



PLEASL COMPLETE IN BLOCK CAPITALS M^^^^^M^ ORDER FORM 

All cheques/postal orders should be made payable to:- 
ARGUS SPECIALIST PUBLICATIONS L I D 

I would like to order the following cassettes: (please tick box) 



MARCH 86 


YCMAS61 


£4.00 




UTILITY SPECIAL 


YCMA862 


£4.00 




APRIL ( 86 


YCAPR86 


£4.00 




MAY '86 


YCMAR86 


£4.00 





I enclose a cheque/postal order for £ 

NAME 

ADDRESS 



POSTCOD E* , . .»»,,.«,....,••«•«»•••«••••••••»■«»«»•»•«»«»«»•»»••■■•*< ■ 

All orders should be sent to:* 

YOUR COMMODORE SOFTWARE h READERS SERVICES, ARGUS SPECIALIST PUBLICATIONS, 
WOLSEY HOUSE, WOLSEY ROAD, HEMEL HEMPSTEAD, HERTFORDSHIRE HP2 4SS. 

Please allow at least 28 days for delivery. 





54 



°^°KPLUS/y. AIR • COMBAT • EMULATOR 




BY CASCADE GAMES 



£10.95 

INC. FREE WATCH 
AND POSTAGE 



1 -3- Hoywra Crescent Honogerle 



HE FASTEST GAME 



ON 



Ire AR COMBAT EMULATOR, potted with 
adlng fecfjej , rs ov far ttie- fastest., mosl 
redrstic ■^Ttsrnukiaf avaflable. For tie 
first time ona horneoomputer. feel whrf il is 
rvaly • keiofy ahghixiicflTiance rniHofy 
jei arid engage tares, [resiles, nips, 
hetioopter guvj^ and two types of 
curing ntetlgent enemy arjTcfl 

FeowgousrXG sp*eimoges t AjCE 
hcEt^srnoothesi. mcsr ckMed oodqplt 
view of hUs-.tees andother gord objects 
ever ochewed tharis to sp&xrfv 
aevelGced Canonic Peptic Tsctinique 
)LJlA\ ®.a\z wing sensationa 'igti speed 
MM 3D graphes. 

IniOTbat^yotrtTeod tfilspri asyou 
struggle witi the hep oi the OGVcnoefl 
(jh'ufrKi'ftnchi^ljdeaBcr view car-era 
and radar, to slcy dive trig enough b oto 
some damage lathe enemy. 

The unique to seat flying .^pttori fplft. 
noiiigatcf v<iecpofTEi man] and B^ctwn 
4mA9 wNch passes vita aircraft 
conaltion blormatior b the *ghl dew 
wlhaUffeezrgte action combined wit 1 
ayoTic locttod map. take ods and 
landngs, summer, winder aid nic/it-trne 

leluelrg option makes ACE the ulfrncfe 
AIR COMBAT EMULATOR 

ACE SCENARIO 

A vast" irwcsic^ fleei hos tariOBO an your 
southgrn shores ard cfeehaged scons of 
•arts acpeneo by hekccpier guvsNps 
ard prctectad by motile surface to df 
rrissiles ^qitccrore of enemy fighter give 
the eremy forces or cover , AcVcnang 
ruthlessly they are conquering vm 
homeland, facing no O0eo$itm 




Youaethelasl fighter pi be with only'tuee 
A.C.E. Moft 2,i mull role Aj| vteather All 
"errdn J combat aircraft. Based as 
an ailed aitoase you task is to atta*and 
aestroythe nunwriodV superior enemy 
land and air farces and dive tern Item 
your show The ind stage oflhe oonflicl, 
having dready destroyed the enemy land 
toQBtidsrvdacvvnltwftirtoiDB.isiasr* 
tie enemy fleet as.lt evacuates itsaefeaiea 
amy 

ACE- EXPERIENCE if NOW 

Every ccrrputr acme far> wl I love ACE - 
ust be* st tese fecrues 

• 1 X op'm zee machine code uses dl 
c^ldoie memory. 

• Fsdufrg Dynomc Graphic Techniques 

• The srrccthest, fastest and most aerated 
cedtp' yew of any (light simuation. 

• Views of tills, trees. tarte ard 
grand objects Aerid combat ground 
atrac* ard r<jval attack. 

• a >LUkjfr*M iTfr le tespeech 
does no* taeze the action. 

tgtt*tthtfeddofa 
fttond 




DDIf^C £10.95 (DISK OM £12.95- 
T KI^L 0 16 and VIC 20 £9,95) 

Postage FREE in U.K. Add £1 for overseas orders. 
Allow 2B days for delivery. 

. enclose chequepos'al order for (£ ) made payabl* 

to Cascade Games Ltd. 

Or through any Post Office by Tianscash (Giro Mo. C6S 66551. 
Fo'evenfasle* Crfdenng wtw^ charging *o Access. EkyciovoardOfid 
Trustcard Visa use our 24 hr service [Tel, 0423 504663). 
ENTER CREDIT CARD NO IN 60*- 




□ ^ 64 CASSETTE 0 064DISK D0 16 

□ O VIC 20 (with 8K RAM ©xparttlon] □ <>128 

□ (X PLU^'^ (SPECIAL 64K PLUS''4 VtRSOM) 



MAME. 

ADDRESS 



POSTCODE. 
COUMTTfV_ 



ACE -EXPERIENCE IT NOW! 



Plecrae corrpie»e end send to - 
Cascade Games Lid 

1 -3 Hciyvyra Crescenl 
Hatrogare HG1 56G Engiord 
Tel (Od?J| 50*)63 



Allen Webb puts 3D 



graphics in focus. 



UP TO NOW, I'VE TRIED TO 
give routines which will be of 
use to the widest possible 
range of readers. I now plan to 
give a few which will be of use 
mainly to game writers. The 
idea is to try to remove the 
problem of graphics from the 
user leaving him time to 
concentrate on the logic 
behind the game. 

f ve always been keen on 3D 
games so it's with this area that I 
wish to start. The use of 3D 
effects to depict movement 
down corridors or mazes is 
frequently used in arcade 
adventure type games. If 
you've seen Ariolasoft's 
Scarabaeus or Supersoft's 
Super Glooper, you'll know 
what I mean. 

The idea behind the routine 
is that you defi ne the maze as a 
two dimensional array in RAM. 
You call the routine specifying 
the co-ordinates of your 
position and the direction 
you're looking and the routine 
shows the view through the 
maze. 

The maze is considered as 
an array of square cells. Each 
cell can have exits in anyone of 
the four cardinal directions. If 
we assign a bit to each direction 
$\)ch that north uses bit zero., 
each uses bit one etc, we can 
calculate a number between 
zero and 15 which defines the 
cell. These are summarised in 
Table 1. 



Table 1 


Exits 


Cell Value 


None 


0 


N 


1 


E 


2 


N & E 


3 


S 


4 


N & S 


5 


E & S 


6 


N & E & S 


7 


W 


a 


N & W 


9 


E & W 


10 


N & E & W 


n 


S & w 


12 


N & S & W 


13 


E & S & W 


14 


all 


15 



Figure 1 shows the maze 
used in the demonstration 
listing, The only restriction is 
that all passages are limited to 
one cell wide. 



TOP DRAW 
TOP DRAW 



i±0 11416 14 18 12 



» ♦ * * 



3 = A B ; JL JL ' jl 0 ■ jl A r A B , A 3 



6 10 10 10 10 10 10 



FIGURE I is SAMPLE HAZE 



PROGRAM: 3D LOADER 



it RErtmmttmumimtit 
tti 

2t REHJ 3D MACHINE CODE LDADE 
R t 

31 REHtmmmtfitiiuititi 

HI 

2888 FOR L=8 TO 14S:CI=9 

; FOR D=8 TQ 15 i RE AH A 

:f,I=CI+A:POKE 38489+LJ16+D 

&:NE*T C 
im READ AsIF flOCI THEN PR] 

NT "ERROR IN LINE"; 

2848+(Ul9);ST0P 
2120 NEXT l : END 
2949 DATA 76,199,151,76,122, 

151,76,11,155,169,8,133, 

25^ 169,211, 133,2*72 
2858 DATA 252,169,8,141,222,3 

141,223,3,173,224,3,141! 

114,155,32,1996 
2161 DATA 155,151,236,223,3, 

173,223,3,281,28,248,21,24 

165,251,1*5,2195 
287* DATA 48,133,251,144,2, 

238,252,238,222,3,32, 112 , 

158,76,31,158,2866 



28B8 DATA 96,173,216,3,133, 

167,173,217,3,133,168,172, 

215,3,248,17,2129 
2898 DATA 24,165,167,189,212, 

3,133, 167,165,16s, 185,8, 

133,168,136,218,2863 
2188 DATA 239,24,165,167,189, 

214,3,133,167,165,169,185, 

8,133,168,96,2156 
2118 DATA 173,222,3,211,7,144, 

6,173,225,3,76,128,158,173, 

224,3,1911 
2128 DATA 141,114,155,96,162, 

3,168,14,24,32,248,255,173, 

224,3,141,1937 
2138 DATA 134,2,169,296,32, 

218,255,162,4,161,14,24,32, 

248,255,173,2872 
2148 DATA 225,3,141,134,2,169, 

67,168,150,32,38,171,96, 

162,2,168,1712 
2158 DATA 18,24,32,248,255, 

173,224,3,141,134,2,169, 

217,32,211,255,2111 
2168 DATA 169,297,32,218,255, 

162,3,161,11,24,32,248,255, 

173,225,3,2168 
2171 DATA 141,134,2,169,84, 



168, 158,32,31, 171,96,162,1 

161,5,24,1529 
2188 DATA 32,248,255,173,224, 

3 ,14 1,134 ,2, 169 ,287 ^2, 218, 

255,169,287,2453 
2199 DATA 32,211,255,169,297, 

32,218,255,162,2,168,5,24, 

32,248,255,2251 
2288 DATA 173,225,3,141,134,2, 

169,147,168,158,32,38,171, 

96,162,3,1886 
2218 DATA 168,19,24,32,248, 

255,173,224,3,141,134,2, 

169,296,32,211,2124 
2229 DATA 255,162,4,169,19,24, 

32,248,255,173,225,3,141, 

134,2,169,1998 
2231 DATA 11,168,159,32,31, 

171,96,162,2,169,22,24,32, 

249,255,173,1729 
2249 DATA 224,3,141,134,2,169, 

217,32,218,255,169,287,32 

211,255,162,2412 
2258 DATA 3,168,22,76,281,1594 

162,1,169,26,24,32,248,255, 

173,224,1989 
2268 DATA 3,141,134,2,169,297 

32,218,255,169,287,32,211, 



The graphics use multi- 
colour redefined characters. So 
that you have the maximum 
amount of RAM, a setup 
routine is used to shift the 
screen and character* to the 
area between the ROMs. [ ht j 
screen's new position is from 
51200 to 52199. The views use 
the characters from Shifted A 



to Shifted S leaving you with a 
reasonable number for the 
creation of objects or monsters 
to put in the maze. You can 
specify the colour scheme by 
poking the following location: 
Location 994 - Wall colour 1 
Location 995 - Wall colour 2 
Location 993 - Ceiling colour 
Location 992 - Floor colour 



Location 996 - Background 
Location 997 - Border 

I he floor arid ceiling 
colours force the multicolour 
mode and must therefore be in 
the range eight to 15 giving 
only eight colours. 

If you wish to use sprites, 
the sprite pointers are now 
located from 52216 to 52223. 



Useable sprites are numbers 48 
to 64 and 128 to 254 and are 
located according to the 
equation: 

Start Address = 52224+(Sprite 
Number-48)*64 

The screen and character 
set limit the area available for 
sprites but there is plenty of 
room behind the kernal ROM. 



255,169,217,2*8? 
2270 DAT ft 32,211,255,162,2, 

168,26,76,252,151,173,22, 

28B,9,16,141,1894 
22B8 DATA 22,2*8,173,226,3, 

141,34,2*6,173,227,3,141, 

35,2*8,173,228,2283 
2290 DATA 3 1 141 ,33,289, 173, 

229,3,141,32,288,96,174, 

222,3,189,115,1978 
2380 DATA 155,133,253,189,135, 

155,133,254,168,6,24,165, 

252,185,16,133,2262 
2318 DATA 171,165,251,133,178, 

177,253,56,233,128,115,251, 

173,114,155,145,2728 
2320 DATA 178,288,177,34,288, 

239,96,32,14,152,165,28, 

141,216,3,165,28*7 
2338 DATA 21,141,217,3,32,14, 

152,165,28,141,212,3,32,14, 

152,165,1484 
2348 DATA 28,141,230,3,32,14, 

152,165,28,141,231,3,32,14, 

152,165,1515 
2358 DATA 20,201,2,280,3,76, 

24,152,281,4,288,3,76,184, 

152,201,1715 
2368 DATA 3,288,3,76,68,153, 

281,1,286,3,76,246,153,96, 

32,253,1882 
2378 DATA 174,32,138,173,32, 

247,183,96,32,9,158,173, 

231,3,141,214,2827 
2388 DATA 3,173,231,3,141,215, 

3,32,65,150,165,167,141,82, 

3,165,1729 
2398 DATA 168,141,83,3,160,0, 

177,167,41,2,208,3,76,58, 

155,238,1688 
2488 BAT A 214,3,32,65,158,168, 



8,177,167,141,237,3,41,1, 

248,3,1629 
2418 DATA 32,219,158,173,232, 

3,41,4,240,3,32,96,151,173, 

232,3,1774 
2420 DATA 41,2,288,3,76,152, 

154,238,214,3,32,65,150, 

160,8,177,1675 
2430 DATA 167,141,232,3,41,1, 

240,3,32,173,150,173,732,3, 

41,4,1636 
2448 DATA 240,3,32,55,151,173, 

232,3,41,2,206,3,76,211, 

154,238,1822 
2458 DATA 214,3,32,65,158,168, 

8,177,167,141,232,3,41,1, 

248,3,1629 
246B DATA 32,132,150,173,232, 

3,41,4^,248,3, 32, 14,151, 173, 

232,3,1615 
2478 DATA 41,2,288,3,76,11, 

155,96,32,9,158,173,238,3, 

141,214,1544 
2488 DATA 3,173,231,3,141,215, 

3,32,65,158,165,167,141,82, 

3,165,1739 
2498 DATA 168,141,83,3,168,8, 

177,167,41,6,288,3,76,58, 

155,286,1654 
2588 DATA 214,3,32,65,158,168, 

8,177,167,141,232,3,41,4, 

248,3,1632 
2510 DATA 32,219,150,173,23?, 

3,41,1,248,3,32,86,151,173, 

232,3,1771 
2520 DATA 41,8,288,3,76,152, 

154,286,214,3,32,65,158, 

168,0,177,1649 
2538 DATA 167,141,232,3,41,4, 

248,3,32,173,158,173,232,3, 

41,1,1636 



2548 DATA 248,3,32,55,151,173, 

232,3,41,8,288,2,76,211, 

154,206,1796 
2550 DATA 214,3,32,65,158,168, 

8,177,167,141,232,3,41,4, 

240,3,1632 
2568 DATA 32,132,158,173,232, 

3, 4], 1,248,3, 32, 14, 151,173, 

232,3,1612 
2578 DATA 41,8,288,3,76,11, 

155,96, 32,9, 151,173,230 .3, 

141,214,1558 
25B1 DATA 3,173,231,3,141,215, 

3,32,65,158,165.167,141,82, 

j, 165,1739 
im DATA 168,141,83,3,168,8, 

177,167,41,4,2*0,3,76,58, 

155,238,1682 
2680 DATA 215,3,32,65,150,168, 

0,177,167,141,232,3,41,2, 

240,2,1631 
2610 DATA 32,219,158,173,232, 

3,41,8,240,3,32,66,151,173, 

232,3,1778 
2620 DATA 41,4,208,3,76,152, 

154,238,215,3,32,65,158, 

160,0,177,1678 
2638 DATA 167,141,232,3,41,2, 

248,3,32,173,151,173,232,3, 

41,8,1641 
2648 DATA 240,3,32,55,151,173, 

232,3,41,4,208,3,76,211, 

154, 23fl, 1824 
2650 DATA 215,3,32,65,150,160, 

8,177,167,141,232,3,41,2, 

248,3,1631 
2668 DATA 32,132,158,173,232, 

3,41,8,248,3,32,14,151,173, 

232,3,1619 
2678 DATA 41,4,288,3,76,11, 

155,96,32,9,158,173,230,3, 



141,214,1546 
2680 DATA 3,173,231,3,141,215, 

3,32,65,150,165,167,141,82, 

3,165,1739 
2690 DATA 166,141,83,3,160,0, 

177,167,41,1,288,3,76,5B, 

155,206,1647 
2788 DATA 215,3,32,65,158,160 

8,177,167,341,232,3,41,8, 

240,3,16^ 
2711 DATA 32,219,150,173,232, 

3,41,2,240,3,32,86,151,173 

232,3,1772 
2720 DATA 41,1,288,3,76,152, 

154,206,215,3,32,65,150, 

168,8,177,1643 
2738 DATA 167,141,232,3,41,8, 

248,3,32,173,150,173,232,3 

41,2,1641 
274* DATA 240,3,32,55,151,173 

232,3,41,1,288,3,76,211, 

154,206,1789 
2750 DATA 215 ,3,32,65, .151,1 68 J 

0,177,167,141,232,3,41,8, 

240,3,1637 
2760 DATA 32,132,150,173,237, 

3,41,2,248,3,32,14,151,173, 

232,3,1613 
2778 DATA 41,1,288,3,76,11, 

155,96,162,16,160,13,169, 

89,133,251,1584 
2780 DATA 169,218,133,252,32, 

74,155,173,224,3,141,134,2, 

169,161,160,2282 
2798 DATA 154,32,30,171,96,19) 

17,17,29,29,29,29,29,29,29, 

29,768 

281* DATA 29,210,210,210,210, 
218,210,210,218,218,219, 

► 



21* T 2ie,21* T 2l*,2l8 ,3179 
2*11 DATA 2tS 1 lG i e i lfr2 l B t l^«, 
8,149,133,133,251,149,2(1, 
133,252,32,2933 
2326 DATA 74,155,173,224,3, 
141 ,134,2, 149,241, 141, 154, 
32,36,171,94,1958 
2039 DATA 19,17,17,17,29,29, 
29,29,29,29,29,29,29,29,29, 
29,410 

2m DATA 29,218,219,219,219, 
218,211,211,218,13,1,142,2, 
148,4,169,2219 
2851 DATA 174,133,251,149,218, 
133,252,32,74,155,173,224, 
3,141,134,2,2252 
2841 DATA 94,19,17,17,17,17, 
17,29,29,29,29,29,29,29,29 
29,441 

2871 DATA 29,29,29,29,29,29, 

281,261,13,8,162,26,166,19, 

169,44,1169 
2086 DATA 133,251,149,290,133 

252,32,74,155,94,142,232,3 

141,223,3,2230 
2898 DATA 142,1,160,1,169,73, 

145,251,266,284,232,3,280, 

246,145,251,2469 
2900 DATA 24,195,40,133,251, 

145,252,115,9,133,252,232, 

236,223,3,218,2342 
2919 DATA 225,96,7,155,189, 

223,1,35,69,193,137,171, 

295,239,17,51,1923 
2929 DATA 05,119,153,107,221, 

255,33,155,155,155,154,154, 

156,156,156,154,2454 

2939 DATA 156,154,157,157,157 
157,157,157,157,157,158, 
193, 194, 195,194,293, 270^ 

2949 DATA 293,293,203,203,293 
203,203,293,293,293,203, 
283,203,283,293,293,3218 

2959 DATA 203,293,293,283,203 
293,293,283,293,197,198, 
199,298,282,292,202,3227 

2940 DATA 202,193,194,195,194 
293,283,293,283,293,203, 
293,293,293,283,283,3213 

2971 DATA 293,283,283,203,203 
293,203,197,193,199,208, 
282,202,202,202,282,3225 



2980 DATA 282,282,282,292,292, 
202,212,193,194,195,194, 
293,203,293,293,203,3207 

2998 DATA 203,293,203,203,293, 
197,198,199,200,202,202, 
202,292,202,282,202,3223 

3800 DATA 282,202,202,202,282, 
292,202,202,202,202,292, 
202,282,193,194,195,3286 

3018 DATA 196,283,293,197,199, 
199,280,292,282,282,282, 
282,282,282,282,282,3214 

3029 DATA 282,282,292,282,282, 
202,282,282,282,282,282, 
282,282,202,292,282,3232 

3936 DATA 292,292,292,288,211, 
282,262,292,292,282,262, 
292,282,262,282,202,3247 

3146 DATA 282,292,292,202,202, 
202,202,202,202,202,282, 
202,202,282,292,282,3232 

3058 DATA 292,292,282,282,262, 
280,211,202,282,282,262, 
262,202,282,282,202,3247 

]060 DATA 292,202,292,282,282, 
282,262,282,282,282,292, 
202,262,282,282,282,3232 

3878 DATA 282,282,282,202,292, 
202,262 ,286,211,282,292, 
292,262,262,282,292,3247 

38D8 DATA 292,292,282,282,292, 
202,202,202,202,292,282, 
282,282,282,282,282,3232 

3896 DATA 202,282,282,212,292, 
262,282,282,282,288,211, 
282,282,262,282,282,3247 

3186 DATA 202,202,282,292,282, 
282,202,202,212,202,202, 
202,202,202,282,202,3232 

3118 DATA 202,202,202,202,202, 
202,202,202,202,282,284, 
203,283,205,202,202,3239 

3120 DATA 202,202,202,202,202, 
202,282,202,212,202,202, 
202,202,282,292,282,3232 

3139 DATA 282,202,202,202,282, 
282,202,202,282,202,202, 
204,293,283,283,203,3238 

3148 DATA 285,292,202,282,282, 
282,262,282,282,292,282, 
282,262,282,282,282,3235 

3156 DATA 202,292,292,282,282, 



282,292,292,292,292,282, 
262,294,203,283,283,3237 

3168 DATA 203,203,203,295,282, 
292,202,202,202,202,292, 
202,202,202,202,202,3238 

3178 DATA 282,262,282,292,292, 
292,292,282,282,282,282, 
202,282,284,293,293,3236 

3180 DATA 203,203,203,203,283, 
283,295,292,292,282,282, 
202,292,292,292,212,3241 

3199 DATA 292,292,292,282,282, 
292,292,292,282,282,282, 
282,282,282,204,293,3235 

3299 DATA 293,293,283,263,203, 
203,203,203,203,285,262, 
202,202,282,262,282,3244 

3218 DATA 282,202,292,282,292, 
292,292,292,292,292,282, 
202,202,282,202,204,3234 

3220 DATA 203,203,203,203,283, 
283,283,263,293,293,263, 
283,285,202,202,282,3247 

3238 DATA 282,202,202,202,202, 
202,292,292,212,292,282, 
282,292,292,292,282,3232 

3248 DATA 264,293,293,263,283, 
283,283,283,283,263,213, 
283,203,283,293,285,3251 

3258 DATA 282,202,282,282,262, 
282,282,262,292,292,282, 
292,262,282,212,202,3232 

3266 DATA 282,284,203,293,203, 
263,203,283,283,293,203, 
203,203,203,293,263,3248 

3278 DATA 283,283,205,202,282, 
282,262,202,282,282,292, 
292,292,292,282,282,3237 

32B8 DATA 262,282,284,263,283, 
283,283,283,283,283,293, 
213,263,283,283,283,3247 

3298 DATA 283,263,203,263,283, 
295,282,282,292,282,282, 
282,262,262,262,262,3248 

mi DATA 202,262,292,294,283, 
283,263,263,203,263,263, 
283,293,293,263,293,3246 

3318 DATA 283,203,293,293,293, 
203,293,203,265,282,292, 
282,202,292,262,282,3243 
3329 DATA 292,282,282,262,284, 
283,293,283,263,293,283, 



283,293,283,283,263,3245 
3338 DATA 283,283,283,203,293, 

293,283,283,283,293,283, 

215,292,262,282,212,3246 
3348 DATA 282,282,282,262,282, 

294,203,203,283,203,203, 

293,263,203,203,203,3244 
3351 DAI A 283,203,203,283,283, 

203,263,283,283,203,293, 

263,293,263,205,282,3249 
3368 DATA 282,282,262,281,17, 

157,281,17,157,261,17,157, 

281,17,157,281,2387 
3378 DATA I7,!57 n 263,6,261, 

281,17,157,157,281,261,17, 

157, 157 ,28:, 231,2215 
3388 DATA 17,157, 157 ,28 1,281, 

17,157,157,261,291,17,157, 

157,261,281,17,2216 
3398 DATA 157,157,261,261,17, 

157,157,281,281,17,157,157, 

281,201,17,157,2356 
3488 DATA 157,283,263,17,157, 

157,283,283,17,157,157,283, 

263,17,157,157,2368 
3418 DATA 203,283,8,281,281, 

281,17,157,157,157,261,281, 

281,17,157,157,2431 
3428 DATA 157,281,201,281,17, 

157,157,157,281,261,261,17 

157,157,157,261,2548 
3438 DATA 281,291,17,157,157, 

157,291,291,281,17,157,157, 

157,281,261,281,2504 
3448 DATA 17,157,157,157,291 ( 

281,261,17,157,157,157,281, 

261,261,17,157,2354 
3456 DATA 157,157,281,281,28:. 

17,157,157,157,281,281,281, 

17,157,157,157,2494 
3468 DATA 291,291,281,17,157, 

157,157,281,281,261,17,1^, 

157, 157,291, 29!, 2504 
3479 DATA 261 ,17,157, 1S7, 157, 

263,283,282,17 ,157,157, 157, 

283,263,263,17,2412 
3408 DATA 157,157,157,293,293, 

263,17,157,157,157,0,291, 

17,157,281,17,2161 
3498 DATA 157,291,17,157,281, 

17,157,281,17,157,263,6,8, 

234,2,235,1956 



The routines have two eniry XC - Horizontal coordinate of In the demo, you may moving through it. Lines 110- 

points: the cell you are in notice a number of points: 180 in the demonstration 

VC - Vertical coordinate of the handle that, 

cell you are in 1) I use the normal screen 3) After calling the routine, 

SYS 38403 - initialises the Dl - Direction of sight memory to store the maze. This locations 850 and 851 hold the 

colours and multicolour mode. is handy if your maze is less address of the cell you are in. 

SYS 38400,SA r Wl r XC,YC,DI than 1024 cells in size. By PEEKing this location, you 

SA - Start address of the maze 1 = North 2) The routine does not handle can check which exits are open 

array 2- East your movement. The routine to movement. Line 60 and lines 

WI - The width of the maze 3= South will show you a dead end but 150 to 180 in the demonstration 

(number of cells) 4 - West will not prevent you from show this. 




ii poke y.;5<^iR 

n POKf 5*573 ,PEEK[ 56578) OR 3s POKE 56576, 
(PEEia 565761 AM 252} QR i 

w poke m t m 

W POKE 53272, (PEEK (53272) AND 248J0R 8 
:i POKE 53272,(PEEKl53272)ftNC 32 
6* POKE 56334 ,PEEK {56334 J AND 254 
7* PQKE 1 4 PEEK (1) AMD 251 

B* FOR 1=8 TO 2847:P0KE l+12t4896,FEEK( 1+53248) :NEIT 

9* POKE 1, PEEK (l)QR 4 

188 POKE 56334, PEEKI5633410R 1 

2888 FDR L-l TO 9:a=8:FOR D=# TO 15:READ AiCI-D+fi 

:P0KE 49672+Ltl4+B,A:NEU D 
2811 READ A:1F flOCt THEN PR INT "ERROR IN L 1 NET ;2i41+ « L t!0> 

:ST0P 

2828 NEXT LiPRlMT CHR*( 1471 "NEK SCREEN POSITION AND CHARAC 

TER SET[SPC3)HQN SET UP' 
2841 DATA 175,178,178,178,178,171,178,171,255,255,175,178, 

178,178,178,178,2988 
2858 OAT A 255,355,255,255,115,178,178,178,255,255,255,255, 

255,255,175,178,3538 
2868 DATA 255,255,255,255,255,255,251,171,255,255,255,255, 

258,171,178,171,3738 
2878 BATA 255 ,255,25*, 178, 178, 178 ,178 ,178 ,258,178,178, 178, 

171,178,178,178,3858 
im DATA 85,85,85,85,85,85,85,85,178,178,178,178,178,178, 

178,178,2948 

2898 DATA 255 ,255 ,255, 255, 255 ,255 ,255 ,255, 171, 178, 171, 171, 

175,175,191,191,3454 
2188 DATA 178,178,234,234,258,258,254,254,255,255,255,255, 

255,05,85,85,3346 

2118 DATA 255,255,255,255,255,255,255,85,191,191,191,191, 
191,191,191,191,3391 

212ft DATA 255,255,255,65 ,85, 65,05,85, 255, 85, B5, 85, 85, B5. 85, 
05,2*18 

2138 DATA 254, 254 ,254 ,254,254,254, 254, 254, 4, 195 ,67,79,65, 
116,253,79,2898 

2ue REnttttiimmmmmt 

215J REM 3D SETUP RDUTINELSPC3JI 

2168 Fetiititmuttttttiittt 



18 DATA 6,18,14,18,14,11,12 

28 DATA 3,18,11,18,11,18,13 

38 DATA 6,11,18,11,18,18,9 

41 FDR 1=8 TO 28: READ I: POKE 1824+1, S:NEIT 

58 POKE 992,11 1 POKE 993,9 J POKE 994,6 : POKE 995,14 

i POKE 996,8: POKE 997,1 
61 BEF FNA(A)= PEEK I PEEK ( 85 l)t 256+ PEE K( 858 M 

: PRINT CKRt!1471i POKE 658,128 
78 SIS 30483 

08 STS 38488, 1824,7, 8,1,1 :PRINT , [H0nE]'TABI36) , [liHnE,SPC] 

^EFT2 1 DQiN]N[UP^RROi3E£DONN,LEFT2)S' 
98 SP^ft:TP=e 

118 GET II: IF lt=* i THEN 181 

118 IF If="E*THEN DI=2:PR INT* [HOME] "TAB 06) i [NHITE,SPC}E 

[DOWN, LEFT2 ] N 1 UP-ftRRDW 3 S [ DDNN , LEFT2 IN 1 : FL=1 s GOTO 198 
128 IF if='M-TH£N Dl=4 :PRINT"IH0flEl , TAB(36J '[IIRITE,SPC]N 

I OONN , LEFT2 ] S C UP-ARR QM3NE DOW , LEFT2 3 E ' : FL=h BOTD 198 
138 IF It='S"THEN DI=3 :PRIHT 1 IHG1E1 - TAB(34J ■ EKHI TE ,SPC IS 

[ DOWN , LE FT 2 ] E 1 UP-A RROW ] i [ DDNN , L EFT2 3 N 1 i FL=1 \ GOTO 198 
148 IF It =, N'THEN 01=1 :PRI NT" tHOMEJ H TAB (3t) , liHITE,SPClN 

[ BONN | LEF T2 1 U I UP- ARROW 3 E E OONN , L EFT2 3 5 1 i FL=li GOTO 198 
158 IF IWm Dl=l AND TP>8 AND IFNA(A) ANB 1) THEN TP= 

TP-h FL=k GOTO 198 
168 IF If^F'AND DI=3 AND ¥P<2 AND (FNA(A) AND 4 J THEN TP=V 

P+l! FL=lt GOTO 198 
178 IF It =, F*ANB 01=2 AND 1P<6 AND (FNAtA) AND 21 THEN l!fa 

IP+h FL=1 : 8DTD 198 
181 IF It=-F-flWD Bl=4 AND IP>I AND (FNA!A1 AND 81 THEN IP= 

XP-l : FL=1 

198 IF FL=1 THEN SIS 38488, 1124, 7, KP, VP, DI: FL=8 
288 GOTO 188 

218 fotummmiJ 

228 REMt 3D BEHQ1SPC41I 
238 REHtttltttttllttt 
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FREEZES & THEN SAVES ALMOST ALL KKUbK^ ™« 
(readies* " wither loaded fro f*« or dl-k) 

SAVES THE PROGRAM ON DISK AS ONE FILE, 

"PROGRAM CRUNCHER" AUTOMATICALLY REDUCES DISK-SPACE USED. 

(you can save 5 or -ore prolans per disk) 
FAST LOADING BACK, THE BUILT-IN GT LOADER SPEEDS LOADING, 

PWERFUL MACHINE CODE MONITOR WIT, ALL 

TfuT* BACK WITHOUT THE CARTRIDGE CONNECTED. 
U«L btckT^Tcch 1541 * 1570 dUk drives) 

VERY EASY TO USE. YOU DON'T HAVE TO BE AN EXPERT, THE CARTRIDGE 
DOES IT ALL FOR YOU. 



USE AN EXPERT IF YOU WANT THE JOB DOING PROPERLY. 
FOR TAPE TO DISK - THE EXPERT CARTRIDGE IS FIRST CHOICE EVERY TIME. 
AVAILABLE NOW FOR CBM 64. CI 28 VERSION AVAILABLE SOON. 
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EXTRA, 



TRILOGIC 

Dept EX 



MAIL ORDER 
CALLERS 



29 HOLME LANE BRADFORD BD4 QQA 

329 TONG STREET BRADFORD BD4 9QY 
Tel I0274J 684289 



VAT t 



COLUMN COHVtfW ™ 



electronic mnEFSS 5PECI ^ 

CASSETTE iS^JS? 11 * POtfE ^ 



CHEQUE* P.O, OR BANKERS DRAFT PAYABLE TO TRILOGIC . 
SH. A/C NO, 650-3659 AT ANY POST OFFICE, 
EXTRA. PAYMENT IN STERLING ONLY PLEASE, 



TRILOGIC 



MAILORDER 
CALLERS 



Dept EX 



29 HOLME LANE BRADFORD BD4 QQA 

329 TONG STREET BRADFORD BD4 9QY 
Tel [02741 $84289 



I Erie Doyle has rust led 
[up a tew useful tips 
for you this month, 

WE OFTEN GET LETTERS A5K- 
ing how two Basic programs 
can be merged together into a 
single program. This is useful 
for entering old and loved sub- 
routines which can take hours 
to type in. 

The problem with most 
simple merge routines is that 
they don't cater for the 
situation when the two 
programs share the same line 
numbers so I have included a 
routine which does a simple 
renumber, 

Enter and save the listing 
and don't worry if you don't 
understand it, all will be 
revealed later. 

The address of the start of 
Basic is stored in the two bytes 
starting at location 43 (hex 2B) 
and the end of a Basic program 
in the two bytes at location 45 
(hex 2D), Normal loading of a 
program leaves the pointer at 
location 45 pointing at the last 
of the three zero bytes with 
which every Basic program 
ends. To merge a second 
program on to the one in 
memory we have to fool the 
computer into believing that 
the start of Basic is now at the 
end of that program. 

This simply means that the 
pointer at location 43 is 
changed to the same value as 
the pointer in location 45. 
Unfortunately, that is not quite 
right because we have to lose 
the last two zero bytes from our 



program in memory first, In 
practice, we load pointer 43 
with the value of pointer 45 
minus two. 

To get the actual value of 
the pointer the first byte is 
added to the second byte 
multiplied by 256; 

P=PEEK {45) + PEEK (46) *256 

Subtracting two from P: 

P=P-2 

And splitting the result into 
pointer 43: 

POKE 43>P AND 255: POKE 
44.P/256 

We can now load our 
second program in the normal 
way after which we redirect 
poi nter 43 to the normal begin- 
ning of Basic in this way: 

POKE43,1:POKE44,8 

Listing the program will 
now show that both" programs 
have been joined together. 
Obviously, the above lines 
must be entered i n d i rect mode 
just as they are written here and 
not given line numbers 
because that would really crash 
the system, 

The programs cannot be 
said to be truly merged until 
the line numbers have been 
changed. The polite way to 
describe this dog's dinner of a 
program is to say that it is 
simply two concatenated 
programs. A renumber routine 
is needed, 

Repeating the above pro- 
cedure would allow a third 



renumbering program to be 
merged but to get it to run 
would be a nightmare. One 
solution is to fool the 64 into 
believing that Basic memory 
lies elsewhere in memory for 
the time being. 

A likely place is the 'spare' 
block of memory which is 
much favoured by machine 
code programmers and starts at 
49152. To alter the memory 
layout use the following line; 

FOKE44,192:POKE56,20a:POKE 
49152,0: NEW 

Now load the renumber 
routine which you saved earlier 
using the normal LOAD syntax 
for your disk or tape* 

Type RUN and press 
RETURN. When the program 
stops press RETURN again and. 
Hey Presto, there's your re- 
numbered listing ready to be 
saved once you've changed all 
the COTOs and GOSUBs (what 
do you expect, real magic?)- 

What happened is that the 
program followed all of the line 
links through the program in 
the normal Basic memory and 
changed the line numbers to 
the values selected in the 
renumber program. 

Talking of magic I bet I can 
make your screen wobble. Try 
this: 

FOR A=0 to 200:POKE53270,A: 
NEXTA:POKES3270 

How's that for an explosive 
effect? 

If you've ever had a 
program which uses the GET 
command it may have 
occurred to you that it would 



be nice to have a flashing 
cursor to indicate that the 
computer is waiting for some- 
thing to be input. Memory 
location 204 enables and dis- 
ables the cursor, so write your 
GET statement like this; 

10 POKE 204 J 0:GET A$:IF 
At= '"THEN10 

20 PRINT At 

Well that's the last gem for 
this month. If you've written a 
handy little routine which 
you'd like to see on 
Commodores around the 
world, why not send them to 
Scratchpad, YourCommodorc, 
No 1 Golden Square, London 
W1R 3AB, 

ready. 

art you sure? 

If INPUT "FIRST LIKE NO'jNL 

21 INPUT 'LINE INCREMENT 1 ; IN 

C 

3* NL»NL-INC 

M LK*2§4?:LN*2H1 

50 1 FPIEX ILK) 3 I ANDPEE K < LK+ H 

*#THEN HI 

h% NL=NLHNC 

71 P0KELH,»L AND 255iP0KELN+ 

ML/256 

W LK= PEE K ( LJO + PEE K ( LK * i } t25 
6 

91 LN-LK+2 
tU SQTOSfl 

111 PRINT-PQKE45,"ILKAND255) 
+2":PQKE*VJNTUK/256h 
121 PRINT B :POKE44,0!POKE43, 
l;P3KE56,16?:L[s IMPKUPH 
UP][LJPI B 



WORD 



PROK 



With lain Murray*§ 
word processor, there's 
no need lor shabby 
letters and scraggy 
documents. 



WORDPROK IS A DISK-BASED 
word processing package 
offering a full multi-function 
machine code screen editor 
and high-speed print out 
routine, along with a Basic 
main program equ i pped with a 
number of other facilities. It 
also allows you to "customise" 
it easily if required. 

A word processor is a 
program which turns a com- 
puter into an "electronic 
typewriter". It allows you to 
enter text, correcting any 
mistakes as you go, and lets you 
add, delete, or change any 
sections as required before the 
final printout is produced. Thus 
the final draft is all that needs to 
be printed on paper, and it 
should be error-free, saving a 
lot of waste paper. 

The listing comprises two 
programs: the first is a Basic 
loader program for the 
machine code section. This 
loads the machine code {in a 
series of DATA statements) into 
memory starting at 49152, and 
when the data is correct and 
loaded, the machine code 
section (just over 3K> is saved as 
a machine code filetodisk. The 
main program can then load 
this program file, and the 
loader with the machine code 
data need only be used once, 
hence saving time when it is in 
use. The second program is the 
word processor itself, and 
provides easy access to the 
machine code routines used. 
Although the machine code 
would be difficult to modify, 
the Basic program could be 
adapted to suit your own 
requirements. 

Wordprok Manual 

On running the program, the 
machine code section is auto- 
matically loaded from disk if it 
is not already present in 
memory, A menu is then pre- 
sented, with the following 
options. 

1, EDIT DOCUMENT 

This selection gives access to 
the machine code screen 



sRD&RA*: FRTODE.jEN 

10 RE*! Ill WDRDFftOK CODE SEN 

ERATQR ttt 
20 RE* ttl BY IAIN MURRAY 

to im tit 

3« REH tit FOR TOUR COMTOMR 
E ttt 

50 POKE 53280,6iPOKE 532Bi,i 
60 PRINT "[CLEAR, DON N3, 

RIGHTS, RVSDN,5PC]WQRDPR0K 
MACHINE CODE GENERATOR 

CSPC,RV50FF3 H 
65 PRINT" :C0WN3,RI&HT2ITH:s 
iiILL SAVE 'PRQKC3DE 1 2NT 

D DISK' 
71 PRINT H CD0WN5, RIGHT?] 

LOADING DATA - PLEASE WIT 
133 AD=49152;C=0 
116 READ A:PDt'E Ar.P.s!>C+A 

j ftJ=AB+I 
121 If AD<52441 THEN 11! 
131 IF A*96 AND C=5379:3 THE 

h 150 

140 PRINT " [DOWN:, SISHT7I 
ESRGR-IN MTA!!"ifln 

150 PRINT B CD(W«3,RIfiHT73 
DATA 0K-PRES5CSPCRVSQK, 
5Pt3SPAE£SPC,SVSOfl>SPCJ 
T C SAVE" 

£60 GET At: IF MO" 11 "HEN 1 
60 

17* POKE 43, 0! POKE 44,1 ¥2 

: POKE 45,218:P0KE 46,204 
IB* SAVE "PR0ICC0DE%e 
m END 

1000 DATA 169,80,133,251,169, 

4,133,252,173,254 
1010 DATA 207,133,253,173, 

255, 207, 133,254, 169, 0 
1020 DATA 141,232,207,141, 

252,207,141,253,207,160 
103* DATA 0,177,253,201,208, 

240,20,201, 1 94, 240 

1049 DATA 16,201,211,240,12, 
201,202,240,8,201 

1050 DATA 214,240,4,201,195, 
20B,2B, 32,23,193 

1060 DATA 177,253, 145,251,32, 
154,192,32,191,192 



070 DATA 32,172,192,32,23, 

193,32,206,192,32 
1080 DATA 9,193,76,31,192, 

201,102,209,20,145 
L090 DATA 251,32,154,192,32, 

191,192,32,206,192 
1100 DATA 32,30,193,32,23, 

193,76,103,192,201 
1110 DATA 159,240,205,145, 

251,32,154,192,32,191 
1120 DATA 192,32,172,192,173, 

238,207,240,16,173 
1130 DATA 252,207,201,29,48, 

9,177,253,201,32 
1140 DATA 200,3,32,23,193,32, 

206,192,32,9 
1150 DATA 193,76,31,192,230, 

251,165,251,213,2 
1160 DATA 230,252,96,230,253, 

165,253,208,2,230 
1170 DATA 254,96,238,252,207, 

173,252,207,201,40 
1130 DATA 48,8,238,253,207, 

169,0,141,252,207 
1190 DATA 96,165,251,201,152, 

208,8,165,252,201 
1200 DATA 7,208,2,104,104,96, 

173,232,207,208 
1210 DATA 53,165,253,205,249, 

207,208,46,165,254 
1220 DATA 205,250,207,208,39, 

174,253,207,232,232 
1230 DATA 172,252,207,173, 

249,207,205,254,207,20b 
1240 DATA 12,173,250,207,205, 

255,207,208,4,162 
1250 DATA 2,160,0,24,32,240, 

255,160,0,169 
1260 DATA 1,141,232,207,96, 

165,253,24,105,1 
1270 DATA 133,253,165,254, 

105,0,133,254,96,169 
1290 DATA 32,145,251,32,154, 

192,165,251,211,152 
1290 DATA 208,9,165,252,201, 

7,208,3,104,104 
1300 DATA 96,32,172,192,173, 

252,207,201,0,240 
1310 DATA 3,76,23,193,32,206, 

192,96,173,152 



1320 DATA 219,201,6,240,50, 

173,224,217,205,239 
1330 DATA 207,240,42,169,80, 

133,251,169,216,133 
1340 DATA 252,173,239,207, 

145,251,165,251,24,105 
1350 DATA 1,133,251,165,252, 

105,0,133,252,201 
1360 DATA 219,208,234,165, 

251,201,152,208,229,173 
1370 DATA 239,207,141,134,2, 

96,138,72,24,173 
1380 DATA 250,207,105,177, 

176,17,56,169,224,237 
1390 DATA 229,207,24,109,249, 

207,141,54,173,229 
1400 DATA 207,240,49,56,173, 

249,207,237,229,207 
1410 DATA 133,251,173,250, 

207,233,0,133,252,172 
1420 DATA 229,207,177,251, 

160,0,145,251,201,102 
1430 DATA 240,6,32,154,192, 

76,163,193,174,229 
1440 DATA 207,32,37, 199,202, 

208,250,169,0,141 
1450 DATA 229,207,104,170,96, 

173,246,207,133,251 
1460 DATA 173,247,207,133, 

252,160,0,177,251,172 
1470 DATA 229,207,145,251, 

165,251,215,249,207,208 
1480 DATA 42,165,252,205,250, 

207,208,35,172,229 
1490 DATA 207,136,169,0,141, 

251,207,169,32,145 
1500 DATA 251,173,251,207, 

240,8,104,104,169,0 
1510 DATA 141,248,207,96,32, 

10,199,136,192,255 
1520 DATA 208,231,96,198,2^1, 

165,251,201,255,208 
1530 DATA 2,198,252,76,209, 

193,169,32,133,251 
1540 DATA 169,78,133,252,160, 

0,140,244,207,140 
1550 DATA 245,207,177,251, 

201,102,203,1,96,201 
1560 DATA 194,240,6,32,154, 

192,76,40,194,32 ► 



CG4 



1570 DATA 154,192,177,251, 

201, 3 82, 240, 236, 2*1 ,32 
15B0 DATA 241,243,211,197, 

241,228,238,244,287,173 
1590 DATA 244,207,208,3,238, 

245,2#7 f 32,154,192 
\m DATA 177,251,281,102, 

240, 218,2*1, 197,240, 2*4 
1610 DATA 201,32,240,211,201, 

159,240,207,76,85 
1620 DATA 194,76,73,197,169, 

0,14: ,246, 207, HI 
1430 DATA 251,207,173,142,2, 

41,2,248,38,32 
1640 DATA 228,255,240,236, 

201,137,208,6,238,33 
1450 BATA 208,76,73,197,201, 

138,2*8, 6^,32 
1440 DATA 200,76,73,197,201, 

139,240,3,76,39 
1670 DATA 195,238,239,207,74, 

73,197,173,142,2 
1680 DATA 41,4,205,3,76,31, 

195,32,225,255 
1490 DATA 208,3,76,112,194, 

2^1,4,208,8,169 
1708 DATA 1,141,248,207,133, 

294, 96, 201, 31,208 
1710 DATA 10,169,1,133,204, 

169,2,141,248,207 
1720 DATA 96,201,31,288,15, 

172,138,2,173,237 
1730 DATA 207,141,138,2,148, 

237,217,76,73,197 
1740 DATA 201, 28,208,10, 1A9, 

4,141,248,207,149 
1750 DATA 1,133,204,96,201, 

16,240,35,201,4 
1760 DATA 240,31,201,19,240, 

27,201,2,240,23 
1770 DATA 201,5,248,19,201, 

18,240,15,201,10 
1780 DATA 241,11,201,12,240, 

7,201,3,240,3 
1790 DATA 76,112,194,24,105, 

192,74,19,197,32 
1800 DATA 228,255,208,3,76, 

112,194,281,166,208 
1818 DATA 3,74,112,194,201, 

160,208,5,169,32 
1820 DATA 76,19,197,201,192, 

208,5,149,64,76 
1830 DATA 19,197,201,13,208, 

5,149,159,76,19 
1840 DATA 197,201,141,208,5, 

169,159,76,19,197 
1B50 DATA 201,29,208,6,32, 

199,198,76,73,197 
I860 DATA 201,157,208,6,32, 

233,198,76,73,197 



1870 DATA 201,17,208,13,162, 

0,32,199,198,233 
1880 DATA 224,40,208,248,76, 

73,197,201,145,208 
\m DATA 13,162,0,32,233, 

198,232,224,40,208 
1900 DATA 248,76,73,197,201, 

147,205,14,172,238 
1910 DATA 207,192,1,20^2, 

136,136,200,140,238 
1920 DATA 207,76,73,197,281, 

19,201,15,173,254 
1930 DATA 207,141,249,287, 

173,255,207,141,250,207 
1940 DATA 74,73,197,201,20, 

208,14,169,1,141 
1950 DATA 229,207,32,120,193, 

32,233,198,76,73 
1960 DATA 197,201,148,208,11, 

169,1,141,229,207 
1978 DATA 32,199,193,76,71, 

197,201,138,208,19 
1980 DATA 169,40,141,229,207, 

32,120,193,173,229 
1990 DATA 207,208,3,76,123, 

195,76,112,194,201 
2000 DATA 139,208,11,169,40, 

141,229,207,32,199 
2010 DATA 193,76,73,197,201, 

133,208,80,173,249 
2020 DATA 207,133,251,173, 

250,207,133,252,162,0 
2030 DATA 165,251,205,246, 

207,208,27,165,252,205 
2040 DATA 247,207,208,20,169, 

0,141,251,207,32 
2058 DATA 10,199,173,251,287, 

240,1,96,169,102 
2060 DATA 160,1,145,251,169, 

32,140,0,145,251 
2070 DATA 32,154,192,232,224, 

5,208,208,173,249 
2088 DATA 207,24,105,5,141, 

249,207,173,250,207 
2090 DATA 185,0,141,250,207, 

74,73,197,201,135 
2180 DATA 208,31,162,8,160,0, 

32,233,198,173 
2110 DATA 249,287,133,251, 

173,258,207,133,252,177 
2120 DATA 251,201,32,240,5, 

232,224, B0, 208, 232 
2130 DATA 76,73,197,201,136, 

208,31,162,0,160 
2140 DATA 0,32,199,198,173, 

249,207,133,251,173 
2150 DATA 250,207,133,252, 

177,251,201,32,240,5 
2160 DATA 232,224,80,208,232, 

76,73,197,201,137 



2170 DATA 208,16,162,0,160,3, 

32,233,198,232 
2180 DATA 208,250,136,208, 

247,74,73,197,201,140 
2190 DATA 208,16,162,0,160,3, 

32,199,198, 232 
2200 DATA 208,250,136,208, 

247,76,73,197,201,134 
2210 DATA 208,47,162,20,169, 

1,141,229,207,32 
2220 DATA 120,193,32,233,198, 

173,249,207,133,253 
2230 DATA 173,250,207,133, 

254,198,253,165,253,201 
2240 DATA 255,208,2,198,254, 

160,0,177,253,201 
2250 DATA 32,240,3,202,208, 

214,76,179,195,141 
2240 DATA 231,287,24,185,192, 

144,29,173,231,287 
2270 DATA 24,105,43,176,12, 

173,231,207,54,333 
2280 DATA 64,141,231,207,76, 

14,197,173,231,207 
2290 DATA 56,233,128,141,231, 

207,173,231,207,72 
2300 DATA 173,249,207,133, 

251,173,250,207,133,252 
2310 DATA 160,0,104,145,251, 

173,246,207,205,249 
2320 DATA 207,208,27,173,247, 

287,315,350,207,288 
2330 DATA 19,200,169,102,145, 

251,149,0,141,251 
2340 DATA 207,32,10,199,173, 

251,207,240,1,96 
2350 DATA 32,199,198,169,1, 

141,228,207,32,233 
2340 DATA 198,32,0,192,32, 

199,198,32,42,193 
2370 DATA 173,232,207,208, 

120,173,250,207,205,255 
2380 DATA 207,240,5,16,28,76, 

118,197,173,249 
I 2390 DATA 207,205,254,287, 

248,17,14,15,173,249 
2480 DATA 287,141,254,207, 

173,258,287,141,255,207 
2410 DATA 76,78,197,173,250, 

207,197,254,240,5 
2420 DATA 48,3,76,154,197, 

173,249,207,197,253 
2430 DATA 240,63,48,61,173, 

249,287,201,32,288 
2440 DATA 7,173,250,207,201, 

78,240,47,173,249 
2450 DATA 287,56,233,12,141, 

254,207,173,250,207 
2460 DATA 233,0,141,255,207, 

201,78,208,23,173 f 



editor, turning the computer 
into a typewrite on the screen. 
All the standard upper and 
lower case letters are available, 
as well as the graphics charac- 
ters accessed via the Commo- 
dore logo key. 

Text will appear at the 
flashing cursor as in the normal 
screen editor. A small check 
square character indicates 
the end of the text. To exit 
from the editor, hold CTRLand 
Press " — On re-entering the 
editor from the main menu, the 
cursor will be in the position it 
was in when the exit was made. 
To display the help facility, 
hold CTRL and press " r 
These messages are also dis- 
played at ihe foot of the screen 
throughout editing. The help 
facility gives an on-screen 
summary of the screen editor 
functions and control 
characters. These are as 
follows: 

CTRL- : Return to main menu. 
CTRL l : Print on-screen help 
messages. These are printed on 
the screen one page at a time, 
then control is returned to the 
editor. 

CTRL t: Enter serach/replacc 
mode. This allows you tosearch 
for specific text in the file, and 
replace it if required. The 
search string is requested 
(along with a replace string if 
required}. Both strings must 
contain at least two characters, 
and not more than 40 
characters. The search routine 
then finds the next occurrence 
of the search string in the text 
starting from the current cursor 
position, and displays this. 
Pressing SPACE will find the 
next occurrence of the search 
string. Pressing R (if replace was 
selected) will replace the word 
found with the replace word, 
and find the next occurrence of 
the search string. Pressing 
RETURN will return control lo 
the editor. 

CTRL =: Automatic key repeat 
on£off toggle. This allows all 
keys to auto-repeat or not. 
CRSR Right: Move cursor to 
next character. 

CRSR Left: Move cursor to 

previous character 

CRSR Up; Move cursor back 40 

characters. 

CRSR Down: Move cursor 
forward 40 characters. 
CLR; Split/unsplit words. Nor- 
mally, words are split at theend 
of a line as the line "wraps- 
round". Pressing CLR will auto- 
atically throw a line feed before 
the end of the line, so allowing 



the text to be read more easily. 
HOME: The cursor is moved to 
the top left corner of the 
screen, 

Fll Tab. Five spaces are printed 
from the current cursor 
position. 

F3: Delete word. Text is deleted 

from the current cursor 

position back lo the first 

preceding space. 

FS: Cursor back one word. The 

cursor is moved left to the first 

preceding space. 

F7: Cursor forward one word. 

The cursor is moved righttothe 

first space, 

F2; Cursor up one page. The 
cursor is moved back 256 
characters. 

' F4: Delete Jine, The 40 charac- 
ters preceding the cursor are 
deleted, 

Ffe: Insert line. 40 spaces are 
inserted at the current cursor 
position. 

F8: Cursor down one page. The 
cursor is moved forward 256 
characters, 

CBM Fl: Change background 
colour. 

CBM F3: Change border 
colour. 

CBM FS: Change text colour. 

In addition to these control 
function keys, several keys add 
special characters into the text 
in reverse field. These are used 
to control formatting during 
printing and are as follows: 
*~t RETURN character. Jumps 
to next line (line throw), 
CTRL P: Page throw. When 
printing out, a new page is 
started. 

CTRL D: Double line spaci ng. A 
line is thrown, and subsequent 
lines are doublespaced i.e. one 
blank line appears between 
each line of text. This is the 
default spacing. 
CTRL S: Single line spacing. A 
line is thrown, and subsequent 
lines are single spaced i.e. no 
space between lines of text, 
CTRL L: Left justify text. A line is 
thrown, and subsequent texl is 
printed lefi justified i.e. the left 
margin is aligned, but the right 
margin is ragged, This is similar 
to the output from a normal 
typewriter. 

CTRL R: Right justify text, A 
line is thrown, and subsequent 
text is printed right justified i.e. 
the right margin 3$ aligned, but 
the left margin is ragged. 
CTRL J: Right and left justify. A 
line is thrown, and subsequent 
lines are printed right and left 
justified i.e. both margins are 
aligned. This is the default 
justification setting. 



2470 DATA 254,207,201, 31, 16, 

16,169,32,141,254 
2430 DATA 2*7,141,249,2*7, 

149,78,141,255,207,141 
2490 DATA 258,207,76,73,197, 

173,228,207,20B,1 
2501 DATA 96,76,112,194,169, 

1,133,214,169,65 
2510 DATA 133,251,169,3,133, 

252,173,249,2*7,133 
2520 DATA 253, 173, 25*, 207, 

113,254,160,0,177,253 
2530 DATA 2*1,102,240,13,162, 

0,12,143,192,160 
2540 DATA 0,177,253,201,102, 

208,6,169,1,141 
2550 DATA 241,207,96,72,136, 

168, 104,209, 251, 2*8 
2540 DATA 229,232,236, 64 t 3, 

208,225,165,253,141 
2570 DATA 249,2*7,165,254, 

141,250,2*7,202,32,233 
25S0 DATA 198,2*2, 2*3, 250, 

169,0,141,228,207,32 
2590 DATA 78,197,169,0,133, 

2*4,32,228,255,2*1 
2600 DATA 13,208,10,169,0, 

141,241,207,169,1 
2410 DATA 133,204,94,2*1,32, 

208,3,76,224,197 
2620 DATA 72,173,240,207,203, 

4,104, 76,60,198 
263* DATA 104,201,82,208,217, 

169,1,133,204,173 
2640 DATA 1*6,3,201,2,240,17, 

201,1,240,1? 
2650 DATA 56,173,107,3,237, 

44,3,141,229,207 
2660 DATA 32,199,193,32,163, 

198,76,224,197,32 
2670 DATA 168,198,56,173,64, 

3,170,237,107,3 
26B0 DATA 141,229,2*7,32,19?, 

198,202,208,250,32- 
2690 DATA 12*, 193, 174,64,3, 

32,233,193,202,203 
270* DATA 250,76,224,197,173, 

249,207,133,253,173 
271* DATA 250,207,133,254, 

169,103,133,251,169,3 
2720 DATA 133,252,160,0,177, 

251,145,253,200,2*4 
273* DATA 107,3,200,246,96, 

152,72,160,*, 173 
274* DATA 249,207,133,251, 

173,250,207,133,252,177 
275* DATA 251,201,102,240,11, 

233,249,207,173,249 
276* DATA 207,203,3,233,250, 



207,104,163,96,152 
2770 DATA 72,24,173,250,207, 

105,177,176,7,173 
2780 DATA 249,207,105,224, 

144,13,206,249,207,173 
279* DATA 249,207,201,255, 

203,3,206,250,207,104 
280* DATA 168,96,173,247,2*7, 

20 1,159, 2*8, B, 169 
2810 DATA 1,141,251,207,76, 
36,199,23fl,244,207 

282* DATA 173,244,2*7,208,3, 

238,247,2*7,96,206 
2830 DATA 246,2*7,173,246, 

207,201,255,208,3,206 
284* DATA 247,207,96,169,3, 

170,160,255,32,186 
235* DATA 255,173,64,3,160,3, 

162,65,32,189 
286* DATA 255,32,166,199,165, 

251,133,253,165,252 
2871 DATA 133,254,32,2*8,199, 

169,253,166,251,164 
2B80 DATA 252,32,216,255,94, 

169,3,170,160,* 
2390 DATA 32,186,255,173,64, 

3,160,3,142,65 
2900 DATA 32,139,255,169,0, 

174,249,207,172,250 
2910 DATA 207,32,213,255,169, 

32,141,254,207,141 
2920 DATA 249,2*7,169,78,141, 

25*,207,141,255,2*7 
2930 DATA 169,32,133,251,169, 

73,133,252,32,208 
2940 DATA 199,165,251,14!, 

246,207,165,252,141,247 
2950 DATA 2*7,169,1*2,160,0, 

145,251,96,169,32 
2960 DATA 133,251,169,78,133, 

252,169,0,141,230 
2970 DATA 207,168,177,251, 

201,194,240,21,201,197 
29B0 DATA 240,10,201,102,240, 

6,12,154,192,76 
2990 DATA 180,199,169,1,141, 

230,207,104,104,96 
3010 DATA 160,0,152,141,230, 

207,177,251,201,197 
3010 DATA 240,13,201,102,203, 

3,76,233,199,32 
3020 DATA 154,192,76,214,199, 

32,154,192,96,149 
3030 DATA 43,133,252,169,2, 

133,253,169,0,133 
304* DATA 144,169,36,133,251, 

149,251,133,137,169 
3050 DATA 0,133,133,165,253, 

133,183,169,8,133 



3040 DATA 186,169,96,133,185, 

32,213,243,165,186 
307* DATA 32,180,255,165,135, 

32,150,255,144,144 
303* DATA 203,63,160,6,132, 

251,32,165,255,166 
3890 DATA 252,133,252,164, 

144,203,53,164,251,136 
310* DATA 203,233,164,252,32, 

205,189,169,32,32 
3110 DATA 210,255,32,165,255, 

72,173,142,2,208 
3120 DATA 251,104,166,144, 

2*8,24,170,240,6,32 
3130 DATA 210,255,76,64,200, 

169,13,32,210,255 
314* DATA 165,197,2*1,63,24*, 

4,160,4,2*8,19* 
3150 DATA 32,66,246,96,165, 

251,141,226,2*7,165 
316* DATA 252,141,227,2*7, 

173,196,207,240,28,169 
3170 DATA 2*0,141,38,3,169, 

2*4,141,39,3,169 
3130 DATA 127,141,13,221,169, 

255,141,3,221,169 
319* DATA 0,141,1,221,76,171, 

200,169,4,170 
3200 DATA 160,7,32,186,255, 

169,0,32,189,255 
3210 DATA 32,192,255,32,156, 

2*4,32,151,204,169 
3220 DATA 0,141,197,207,170, 

189,215,2*7,157,21? 
323* DATA 207,232,224,4,208, 

245,32,166,199,169 
3240 DATA 1,141,208,207,141, 

211,2*7,173,225,207 
3250 DATA 240,6,32,39,2*4,76, 

219,200,32,39 
3260 DATA 2*4,32,23,204,32, 

23,204,169,0,141 
3270 DATA 225,2*7,141,199, 

2*7,141,2*3,217,141,205 
3280 DATA 2*7,162,0,142,2*6, 

2*7,142,202,207,160 
329* DATA 0,177,251,141,2*7, 

207,32,154,192,173 
330* DATA 207,207,201,159, 

203,3,76,147,201,201 
3310 DATA 102,203,3,76,147, 

201,201,197,208,3 
3320 DATA 76,147,201,24,105, 

64,144,34,173,207 
3330 DATA 207,201,208,240, 

116,201,202,240,112,201 
3340 DATA 210,240,108,201, 

204,240,104,201,195,240 
3350 DATA 100,201,211,240,94, 
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201, 1?6, 241,92,76 
336# DATA 241,2*8,173,287, 

207, 24, 1*5,224, ]76,:2 
337* DATA 173,2*7,217, 24, MS, 

44,141,207,207,74 
338* DATA 127,211,173,287, 

207,2*1,64,2*6,8,169 
3391 DATA 96,141,2*7,2*7,76, 

127,2(1, 24, 1#S, 192 
3401 DAT ft 144,29,173,207,207, 

24,115,160,144,12 
341* DATA 173,207,217,24,105, 

64,141,2*7,217,76 
342* DATA 127,201,173,2*7, 

207,24,185,128,141,2*7 
343* DATA 2*7,173,2*7,2*7, 

157, 192, 2*6,232, 16?, 32 
3440 DATA 157,192,206,236, 

210,2*7,240,11,76,241 
3450 DATA 2**, 169, 1,141,282, 

207,76,160,201,177 
3468 DATA 251,281,32,240,19, 

196,251,165,251,201 
3470 DATA 255,2*6,2,198,252, 

202,248,74,177,251 
346* DATA 2*1,32,208,237,136, 

2*E, 1,76,237, 202 
3490 DATA 142,206,207,173, 

192,2*6,201,32,208,36 
3500 DATA 173,193,206,201,32, 

218,7,173,194,2*6 
35i0 DATA 281,32,240,22,162, 

1,206,206,207,189 
3520 DATA 192,206,202,157, 

192,2*6,236,206,207,24* 
3530 DATA 209,232,232,76,215, 

201,174,206,207,189 
3540 DATA 192,286,281,32,286, 

6,2*6,286,287,76 
3558 DATA 232,2*1, 162,*, 238, 

286,287, 173,2*2 ,2*7 
3568 DATA 24*, 22, 173,206, 207, 

208,3,76,237,282 
3578 DATA 173,208,287,281,2, 

248,7,2*1,3,240 
358* DATA 3,76,167,2*2,173, 

208,2*7,2*6,3,76 
359* DATA 167,2*2,201,1,208, 

1*4,162,8,189,192 
368* DATA 206,2*1,32,208,9, 

232,236,286,207,2*6 
3610 DATA 243,76,167,202,142, 

280,287,74,67,202 
342* DATA 189,192,206,201,32, 

240,9,232,236,206 
3638 DATA 2*7,208,243,76,167, 

202,174,204,2*7,159 
3640 DATA 192,206,2*1,32,24*, 

12,2*2,236,2(0,207 



365* DATA 28B, 243, 204, 204, 

207,76,76,2*2,2*2,142 
366* DATA 201,287,174,286, 

2*7,189,192,206,232,157 
3670 DATA 192,206,282,202, 

236,201,207,203,242,173 
3660 DATA 2*6,207,205,210, 

2*7,208,3,76,167,202 
3690 DATA 238,206,207,174, 

2*1,287,282,76,79,202 
3700 DATA 173,210,207,56,237, 

204,2*7,72,173,2*8 
3718 DATA 2*7,2*l,2,24*,3 f 

184,74,72,184,24 
3720 DATA 1*9,289,2*7,178,76, 

170,282,174,289,287 
3730 BATA 169, 32, 32, 21*, 255, 

2*2,2*8,248,173,196 
3748 DATA 2*7, 24*, 42, 1B9, 192, 

2*6,24,105,191,144 
3750 DATA 34,189,192,206,24, 

1*5,165,144,17,189 
3760 DATA 192,2*6,24,1*5,159, 

144,18,189,192,2*6 
377* DATA 56,233,128,76,228, 

202,189,192,206,24 
3730 DATA 185,32,74,228,2*2, 

189,192,204,32,210 
3790 DATA 255,232,214,206, 

207,206,197,32,23,204 
3300 DATA 238,2*5,207,173, 

285,2*7,285,212,287,286 
381* DATA 3,76,174,203,173, 

211,287,248,17,32 
3928 DATA 23,284,238,205,207, 

173,2^,207,2*5,212 
3830 DATA 2*7,2*8,3,76,174, 

203,173,202,287,208 
384* DATA 20,173,142,2, 41,1, 

24l f li, 32,171 
3B50 DATA 2*4,201,32,241, 3, 

76,223,283,74,233 
3B40 DATA 200,173,207,207, 

281,159,240,229,201,196 
3B78 DATA 2*5,8,169,1,141, 

211,207,76,146,283 
35B* DATA 201,211, 2*8, B, 169, 

8,141,211,207,76 
3890 DATA 144,2*3,201,195, 

203, 8,169,3, 141,206 
im DATA 287,76,166,203,281, 

2*4,208,8,169,0 
391* DATA 141,208,207,76,166, 

283,201,210,208,6 
392* DATA 169,2,141,208,207, 

76,166,203,201,202 
3938 DATA 206,6,169,1,141, 

208,207,76,166,203 
3948 DATA 2*1,2*8,2*6,22,169, 



1,141,199,207,173 
3950 DATA 2*5,2*7,2*5,212, 

2*7,240,25,32,23,204 
3960 DATA 238,285,2*7,74,133, 

203,281,197,288,8 
397* DATA 169,1,141,203,207, 

76,128,203,201,102 
39B* DATA 240,244,173,199, 

207,208,3,76,25,203 
3990 DATA 32,23,2*4,32,23, 

204,32,49,204,32 
4*00 DATA 23,2*4,32,23,204, 

173,203,207,240,61 
4010 DATA 206,214,207,173, 

214,2*7,240,21,162,0 
4*20 DATA 169,219,207,157, 

215,2*7,232,224,4,205 
4*38 DATA 245,169,1,141,225, 

207,76,168,208,173 
4048 DATA 196,207,240,13,169, 

202,141,38,3,169 
4*50 DATA 241,141,39,3,76, 

244,203,32,231,255 
4060 DATA 173,226,2*7,133, 
251,173,227,2*7,133,252 
4*78 DATA 96,173,213,207,240, 

10,32,171,284,281 
4*80 DATA 32,24*, 3,76, 223, 

2*3,32,23,284,32 
409* DATA 23,2*4,76,210,200, 

149,13,32,210,255 
4108 DATA 173,196,207,240,5, 
149,10,32,210,255 
10 DATA 94,173,223,207,201, 
1,208,95,76,54 
20 DATA 2*4,173,223,2*7, 
2*1,2,208,65,174,224 
3* DATA 207,169,32,32,218, 
255,202,208,248,149 
40 DATA 45,32,210,255,169, 
32,32,210,255,162 
50 DATA 3,189,215,2*7,2*1, 
48,208,3,202,208 
4140 DATA 246,189,215,207,32, 
210,255,202,208,247 
70 tm 238,216,207,173, 
216,207,201,58,288,23 
8* DATA 169,46,141,216,2*7, 
238,217,207,173,217 
419* DATA 207,201,58,208,8, 

169,48,141,217,207 
42*8 DATA 238,218,2*7,169,32, 

32,211,255,169,45 
4210 DATA 32, 21*, 255, 32,23, 

204,96,32,23,204 
4220 DATA 76,223,2*3,162,4, 

32,2*1,255,32,183 
423* DATA 255,41,128,240,7, 
169,5,141,197,287 ^ 



CTRL C: Centralise text on line. 
A line is thrown, and sub- 
sequent lines are printed with 
the text centralised on the line. 
This would normally be used to 
print headings etc. 
CTRL B; Beginning marker. 
This sets the beginning of the 
block tor saving, printing and 
word counting. More than one 
begin marker may be used, but 
only the first will be 
recognised. 

CTRL E: End marker. This sets 
the end of the block for saving, 
printing, and word counting. 
More than one end marker 
may be used, but only the first 
will be recognised. If no end 
marker is used, the action will 
continue until the end of the 
text marker (X) is reached, 

2, SAVE DOCUMENT 

This option allows you to save 
any or all of the text currently in 
the memory to disk. The text 
saved is from the first begin- 
ning marker (B) to the first end 
marker (E or K), and the save 
routine gives an exit option if 
these markers have not been 
set up. A filename is then 
requested, which can be up to 
12 characters long. Wild card 
filenames (i.e. thosecontaining 
the characters *, ? or .} are not 
acceptable. On saving, the 
suffix .TXT is added to the disk 
file name to assist in identi- 
fication of text files. If the 
markers are incorrectly set, if 
the disk drive is not available, 
or if the file exists, an error 
message is printed, otherwise a 
successful save message is dis- 
played, and pressing SPACE 
causes a return to the main 
menu. 

3, LOAD DOCUMENT 

This option allows you to load a 
text file from disk into memory 
for editing or printing. Loading 
will start from the current 
cursor position, and an exit 
option is given if this has not 
been set up. A filename is then 
requested, which can be up to 
12 characters long. Wild card 
filenames are not acceptable. 
The routine will then search for 
a file of this name with the 
suffix TXT, and if a load error 
occurs, an error message is dis- 
played, otherwise a successful 
load message is displayed and 
pressing SPACE causes a return 
to the main menu. As loading 
commences from the cursor 
position, several files may be 
chained into one In memory. 
When loading is complete, the 
cursor is set to the start of the 
text memory. 



4, PRINT DOCUMENT 

This option allows you to print 
the current document in 
memory to a printer {device 
#4), The text is printed from 
the first beginning marker (B) 
to the first end marker (E orK), 
The text is automatically for- 
matted and line spaced as 
required during printing., with 
page throws generated when a 
page is filled. Formatting and 
page feed instructions are con- 
tained in control characters 
within the text (see editor 
functions above), and other 
information about the printout 
format is requested before the 
document Ss printed. The 
prompts given are as follows: 
Left and right margins; The 
normal printer width of BO 
characters is assumed, but by 
selecting margins, borders for 
binding the document, etc. can 
be set up, as well as moving the 
text column across the page as 
required. 

Page hold: This allows a pause 
for convenience, or to insert a 
new sheet of paper in a 
friction-feed printer after the 
printing of each page is com- 
pleted. Pressing SPACE will 
continue the print, and 
pressing F7 will terminate the 
print. 

Page numbers: Pages can be 
urvnumbered, numbered at 
the top, or numbered at the 
bottom, and the type required 
is selected from the menu. If 
numbers are required, the 
number of the first page is 
requested, and this should be 
in the range 0-900, 
Page length: The number of 
lines per page will vary 
depending on the size of paper 
used. The number given is the 
full paper length, though a 
margin of five blank lines is left 
at the top and bottom of each 
page. If page numbering is 
selected, the numbers are 
printed! in the middle of the 
required margin, and centra- 
lised with respect to the text 
Number of copies: Up to nine 
copies of the document can be 
printed at one time, and the 
number required is requested. 
When all the prompts have 
been answered, the printer 
should be turned on and the 
paper set up correctly (the 
program prints a demon- 
stration sketch for a tractor- 
feed printer such as the 1525). 
Pressing SPACE will allow 
printing to commence. 
Holding down the SHIFT or 
SHIFT LOCK keys during 



4240 DATA 104,104,96,169,0, 

141,33,203,32,220 
4250 DATA 255,211,32,240,9, 

201,136,208,245,149 
4260 BAT A 2,141,32,208,72, 

169,1,141,33,208 
4270 DATA 104,96,32,202,241, 

72, 16?, Id, 44, 13 
42B0 DATA 221,241,251, 104, 

141,1,221,24,96 
4290 REM til END OF DATA tit 



PROGRAM: WQRDPRQK+ 
1 

10 REH til yOROPROK-HORD PRO 

CESSDR tlf 
20 REH III Br IAIN MURRAY 

(o \m tti 

30 REN ttt FOR "YOUR C0HH0DO 
RPESPC4HH 

35 REH til UORD PROCESSOR 

WIM5PC5]llt 

36 REN ttt SCREEN EDITOR, 

AND[5PC63ttt 

37 REH ttt PRINTOUT TD CDNHO 
D0RETSPC3IUI 

38 REH ttt OR CENTRONICS PftI 
NTERESPC3JM! 

40 PDKE 532B0,6:POKE 53281,1 
: REM I SCREEN COLOURS 

42 IF PEEK<49152>=169 THEN 70 

45 PRINT EHRK 142); "[CLEAR, 
BLACK, 0QIIN3,RlGHT15,ftV5DN, 
SPClHORDPRBKCSPCRVSOFFr 

50 PRINT - S [D0*N4, ft ISHT&] 
LOADINE HA CHINE CODE SECT 
ION* 

55 PRINT n IDDMN3,RIEHTt3 f 
RVSON,SFC]PLEASEtSPC23 

yAinspc,RvsoFFr 

61 LOAD "PR0KCQ0E\8,1 
70 POKE 5i,7SsREM I MEHQRY 
TOP 

90 PRINT "ICLEAR3" 
100 SFM9152:CL*49470 

:R£M I SCREEN FILL AND 
COLOUR FILL ROUTINES 
110 DE=49S28: IN=49607 

J REH t DELETE AND INSERT 
ROUTINES 
120 WC=49fe8BsCGM?773 

i REH t WORD COUNT AND CHA 

RACIER PROCESSING 

124 SV=50995jLD=51037 

: REM I SAVE AND LOAD 

125 FB=51U0!FE=5U52 

: REM I FIND BEGIN AND END 
MARKERS 



126 ZR=50656iREH t SEARCH/RE 
PLACE ROUTINE 

127 DR=5llfl]:R£H t DISK DIRE 
CTORY 

128 PQ=5 1306: REM I PRINT ROU 
TINE 

130 SS=20000:CP=5SiTP=SS 

!VW=53230iDV=3 
140 POKE 53231, 0: POKE 53248,6 
: POKE 53249, IsftEH t SGRN 
1 TEXT CLRS 
145 POKE VN,0;POKE 53217,1 
j 147 POKE 650,0: POKE 53229,255 
150 NQt=° 12345676*0 123456789 

012345678901234567890' 
160 ETt = * I CLEAR , BONN , ft I G HT 1 3 , 
RUSQN,SE]DlTOR[SPC,SF] 
UNCTIDNS[RVSOFF,DONN] 
■+CHRI (13) 
170 UI="tD0*(N2,RISHT2:il 
[SPC,SI]MHEDIATEISPC,SC] 
0HHANDS"+CHR$U3) 
190 m» B CRlGHT422itSPC,SC] 

0 N TRQ L t SP C , EC J HA R AC T ERS 
CSPC,S*niTHlN[SPC,ST] 
EIT'+CHRim] 

190 X3*="IDQ*IN2,RIBHT2]3J 
CSPC,SSIEARCH/(SR]£PLACE 
[SPC,SF1ACILITY[SPC,SC] 
0MMANDS'4CHRt(13) 
195 n$= M [DOWN,fiI6HT6,S0J 
BTAtN THE FOLLOWING BY 
PRESS INGE SPE,RIGHT7, 
RV5ON,SC,ST,SR,SL,RVS0FF, 
SPCJAND THE LETTER ; ' 

299 REH tit TITLES ttt 

300 GOEUB 16500: PRINT CHRfd 
4]CHRtC8)CNRt(144) 

310 5PS='ISPC353':SPI=SP*fSP$ 
390 FDR 1*19990 TO 19999 

iPDKE 1 ,255s NEXT 
400 POKE 20000 r 102 
410 NR=SSiAD*53246 

rGQSUB 10000 
420 NR=CPsA0=5324l 

•GOSUB 10000 
430 NR=TP:AD*53230 
iGOSUB 10000 

499 REH tit HAIN MENU tit 

500 PRINT '[CLEAR, DOWN, 
RIGHTH,RVSDN,5PC2,5H,50, 
SR,5B,5P,Sft T 5Q,SK,SPC2, 
RV50FF3':REM I "KORDPROK" 

505 PRINT *[D0KN,RIGHT14, 
RVS0N,9PC,SM,$A,SI,SN,SPC] 
[SJfl,SE,9N,SU,SPC,RVSOFF3" 

1 REM t "MAIN HEN J" 
510 PRINT 'tDQNN2,RIGHTll]n 

[SPC,SE]D1T[SPC,S0] 



OCUMENT" 
520 PRINT "NOUN, RIGHT1 132) 

ISPC,SS]AVE[5PC,SD] 

OCUMENT" 
530 PRINT ■ EDDUN, R I &HT 1 i ] 3 J 

[SPC,SL3QADCSPC,SD3 

OCUMENT" 
540 PRINT "[DOWN, RIGHT 1134) 

[SPC,SP3RINT[SPC P SD3 

OCUHEMT" 
550 PRINT •[D0KN,RISHT11J5J 

CSPC,SD3ISK[SPC,SF3ILE 

ESPC,SH]ANDLING" 
560 PRINT N CDOMN,RIGHTU36) 

[SPC, S«30RDESPC,SC3aUMT" 
570 PHI NT "IDOHN, RIGHT 11)7) 
ISPC ( SR]ESTARTtSPC,SPJ 
RQGRAM" 
5B0 PS INT '[BONN, RIGHT] 138} 

CSPCSEimiSPCpSPNQSRAH" 
590 PRINT "EDQHH, RIGHTS, SKI 

H1CH DO YOU REQUIRE U-BJ 
7CSPC5,LEFT3]'; 
600 GET At:A=YALtAI> 

sIF A<1 OR A>B THEN 600 
610 ON A GOTO 1000,2000,3000, 

4000,5000,7000,8000,9000 

999 REH ttl EDIT DOCUMENT 
til 

1000 &0SUB 16500; SYS CL 
:P0KE 204,0: REH I SCREEN 

COLOUR FILL 
1010 GOSUB 15000 
1070 SYS SFiREM t SCREEN FILL 
1080 SYS C&iREH t ENTER HACK 
INE CODE CHARACTER GET 

ROUTINE 
1084 POKE 214, Is REH I CRSR 

OFF 

1090 IF PEEK<53240)=1 THEN G 
OSUB 16000; EDTO 500 
8 REM t MENU REQUEST 

1100 IF PEEK (53240) =2 THEN G 
OSUB 14000; GOTO 12000 
: REM I HELP REQUEST 

1110 IF PEEK (53240) =4 THEN & 
OSUB 16000: GOTO 1500 
:REM t SEARCH/REPLACE REG 
UEST 

1119 REH t EXIT CAUSED BY 
MEMORY FULL t 

1120 505 UB 16000: PR INT 1 
[CLEAR, D0NN2,RIGHT14, 
RV5QN,SM,SE t SM,S0,SR,Sr, 
SPC,SF,SU,SL2l!tRVS0FF] B 

1130 PRINT •CDOHN2,RI6HT6,5Y3 
OU HAVE NOM FILLED THE 
HEMORY! 1 
1140 6 OSUB 13000; GOTO 500 



1310 PfiINT " [CLEAR, DQHN3, 
RIGHT 1S H SRIEAChED END DF 
TEXT" 

149? REM Ctt SEARCH/REPLACE 
ttt 

1500 PRINT "[ CLEAR, DQHN3, 
RIGHT?, RVSON f SS3EAIO/[5R] 
EPLACEC SPC p ST ] EXT[ RVS0FF1 » 

1510 PRINT •[D0*N2,RI6HT4,SYI 

au CAN!* 

1S20 PRINT ■[DOHH.RI6HT431J 

C5PC,SS]EARCH FOR TEH" 
1530 PRINT "[DQWN,RJGHT632l 

E5PC,5S]£ARCH FOR TEXT 
AND REPLACE - 
1540 PRINT TDQUN, RIGHT6]3J 

CSPC^RJETURN TO EDITOR" 
1550 PRINT B tDDK f RIEHT4,SH] 

HIGH DO YOU REQUIRE (1-3J 

1540 6ET A*:A=VAUAtl 
:1F A<1 Oft A>3 THEN 1560 

156S PRINT At; IF A=3 THEN 10 
00 

1570 PRINT B IDQNN2,RISHT2 f S£] 
IVE STRING TO BE SEARCHED 
FOR : *: INPUT *CRI6HT23 B ; 
5Rt:SR=LEN!SRf ) 

1500 IF SR<2 QR Sfi>40 THEN P 
RINT B EDONN,RIGHT2,5Il 
N VALID STRING! VBQTO 1570 

15*0 FOR 1=1 TQ SR 

:FC=ASC(HIDi(SRt,I f lH 

1594 IF FC)218 THEN 1597 

1595 IF FCM9Z THEN FC*FC-I2fl 
S6DT0 1597 

159* IF FC>63 THEN FOTC-64 
1597 POKE B32+I,FC 
159B NEIT I 

1600 POKE G32,SR;POKE 53232,0 

1610 IF A=l THEN 1&80 

1620 PRINT fl [DDNN2,Rl6HT2,S6] 

1V£ STRING FOR REPLACED 

T i INPUT > [RIGHT23*!RPt 

iRP=LENERP() 
Ihli IF RP<2 QR RF>40 THEN P 

RINT < IDONN 1 RIGHT2 l SI] 

NVAUD STRlN&fsSGTQ 1620 
Ii40 FOR 1=1 TD RP 

:FC=A5CiniIH(RPI,I J l)) 
1444 IF F021B THEN 1647 
1645 IF FC>m THEN FOFM2B 

: GOTO 1647 
1644- IF FD63 THEN FC=FC-b4 
1647 POKE B75+I,FC 
164B NEXT I 

1650 POKE B75,RP!P0KE 53232,1 
Itif POKE B74 t 0sIF SR>RP THE 
N POKE 874,1 



1670 IF BR=RP THEN POKE 874,2 

1680 PRINT ■ [CLEAR] h 

: PRINT >[DDHN2,R!GHTl3,Stn 
EADY TO SEARCH" 

L690-HSUB 13000: PRINT 1 
[DOVN2,RIGHT14,RVSON,BPC, 
5S, SE| SA p SR , SC , SR ,51, BN j 
SE,5PC,RV5<3FF] V 

1700 GOSUB U500J GOSUB 15000 
! PRINT "[HONE, BLUE, RVSON, 
SPC 6 , RVSDFF , BLACK , SPC , 5E , 
SB,SI,BT,BD,BR] [5S,5E,5A, 
BR.SCjSHJ/CSfl, SE,SP,SL, Sfl p 
5C,SE) [SM,SO f SD ? SE,SPC]" 

1705 PRINT R IHQNE T DDNN24] 1 ; 
sIF A*2 THEN 1720 

1710 PRINT , EBUE,RYS0N T SPC5, 
RVSOFF, BLACK , SPC, SS, SP, SA, 
SC I SE,SPC,RVS0N,BLUE]=[5KI 
EXTtSPC7,RVSOFF t BLACK, BR, 
SE.ETjSU.SR.SN.RUSON^LUE] 
= [ BE } D I T [ SPC f BLACK , HONE ] 1 
iEDTO 1740 

1720 PRINT "CBLtlEjRVBONjSPK, 
RVSOFF, BLACK, SPC, SS P SP,Sft, 
SC i SE , SPC , R VSON , BLUE ] * C SN ] 
EITESPC2,RVS0FFJLACK l Sft, 
fiVSDN , BLUE ] =[ SR" EPL ACE 
ISPC2,RV50FF I BLACK,5R P 5E, 
ST,SU l SR,SN,RVBON,BLliE]= 
[SE ] DIT C BLACK* HOUE 3 " 

1740 SYS ZR;IF PEEK ( 53233) *0 
THEN 1000 

1750 GOSUB 16000: PRINT 1 
E CLEAR, BLACK, D0HN3, 
RIGHT ri,SR]EACHEB END DF 
TEIT" 

1760 GO SUE 13000: GOTO 1000 

1999 REM ttt SAVE DOCUMENT 
ttt 

2000 PRINT "[CLEAR] 1 ; 
CHR*U42);"[I)0HN3,RIGHT13, 
RVSONJSAYE DOCUMENT 
[RVSGFF]* 

2010 PRINT l [DOHN2,RIGHT4][}0 
YOU WISH TO SAVE TEH 
(Y/N) ?* 
2020 GET A*: IF A*="N" THEN 2 
150 

2030 IF WOT THEN 2020 
2040 PRINT "tOQNN2,RIGHT4] 
HAVE YOU SET THE [SPC, 
RVSON ]B[ RVSOFF] E6! NNIN6 
ANDCSPC, RVSOK1 ECRySOFF] 
ND" 

2050 PRINT "(RIGHT4]NARKERS 
FDR THE TEIT TO BE SAVED" 

2060 PRINT H CR1GHT4] (Y/N) 
?' 



2070 GET AS: IF Af="N" THEN 2 
150 

2080 IF AK>T THEN 2070 
2090 GOSUB 18000: GOSUB 13090 
2100 PRINT "EDOHN,RIEHT16, 

RVS0N,SPC1SAVING[SPC, 

RVSDFF]" 
2110 SYS SV 

2120 IF PEEK i 53222) =0 THEN 2 
140 

2130 PRINT "[UP,RIEHT4] 
MARKERS NOT POSITIONED 
CORRECTLY": GOSUB 13100 
:GDTO 2150 
2140 GO BUB 14000: GOSUB 13100 
2150 PfiINT ■[CLEAR]"5CH«(H> 
;GDFO 500 

2999 REM ttt LOAD DOCUMENT 
ttt 

3000 PRINT "EClEARl 1 ; 
CHR*(142)i'[D0NN3 f RIGHT13 J 
RVSONILOAD DQCUVtENT 
CRVSOFF]" 

3010 PRINT " ED0HN2, RIGHT43D0 
YOU WISH TO LOAD TEXT 
tY/NJ V 

3020 GET A$:IF Ai="N* THEN 3 
070 

3030 IF MOT THEN 3020 

3040 PRINT 'EBONN2,RI&HT4] 
HAVE YOU SET THE CURSOR 

TO THE 1 

3041 PRINT MRIGHT4IBTART 
POSITION OF THE LOAD lit 

N> ?' 

3042 GET Ml IF AM'N* THEN 3 
070 

3043 IF AfOT THEN 3042 

3044 GOSUB 18000: GOSUB 13090 

3045 PRINT "EDONN,RIGHTi5, 
RVSON,SPCJLOADINGESPC, 
RVSOFF]" 

3050 SYS LD 

3060 GOSUB 14000:6Q5UB 13100 
3070 PRINT 1 [CLEAR] ";CHRI( 14) 
eSDTO 500 

3999 REM Itf PRINTOUT OF TEX 
T tit 

4000 PRINT " [CLEAR, DQMN3, 
RI&HT13,RVSON ( SP]RINT[SPC, 
SO ] UT [ SFC t ST 3 EX T I ft VS OFF ] 1 

4010 PRINT 1 EDQHN2, RIGHT4, SQJ 
0 YOU WISH TO PRINT TEXT 
([SYJ/CSNJJ ? "| 

4020 GET A*s IF AI='N" THEN 5 
00 

4025 IF AIOT THEN 4020 
4030 PRINT -[SY1 P 

J PRINT "1D0NN,RIGHT4,SHJ 



printing will pause the 
printout. Pressing SPACE will 
restart printing, and pressing F7 
will terminate it. A message will 
appear when printing is 
complete and pressing SPACE 
will cause a return to the main 
menu. 

5. DISK FILE HANDLING 

This option allows you to 
perform some extra operations 
on the current disk. These are 
as follows: 

1. Disk Directory: A directory 
of the current disk is printed on 
the screen. Pressing SHIFT will 
pause the listing. The 
document in memory is not 
affected. 

2. File Rename: A disk file may 
lie renamed. The current and 
new filenames are requested, 
and the renaming procedure is 
carried out. Filenames may be 
up to 16 characters long, 

3. File Delete: Adiskfile may be 
scratched from the disk. The 
filename is requested, and the 
delete procedure is carried 
out. The filename may be up to 
16 characters long, and wild 
card filenames are acceptable. 

4. Exit: This causes a return to 
the main menu. 

6. WORD COUNT 

This allows the number of 
words in the current document 
to be counted. Words are 
counted from the first begin- 
ning marker {B) to the first end 
marker (E or V. ), and an exit 
option is given if these have not 
been set up. The number of 
words in this block is then dis- 
played, and pressing SPACE 
will cause a return to the main 
menu, 

7. RESTART 

This option causes a restart, and 
the document currently in 
memory is lost. A return is 
made to the main menu. 

8. EXIT 

This option causes exit from the 
program, and returns to Basic 
control. 

Limitations of the 
Program 

a) Editor: The word split/ 
unsplit option works by forcing 
a line feed if a space is 
encountered in the last 10 
columns of the screen width 
Thus if a long word occurs at 
the end of a line, it may be split 
between lines. 

b) Device availability trapping: 
If the load, save, disk directory 
or printout routines are 



AVE YOU SET THEtSPC, RVBON , 
SB,RVS0FF3EG1NNING AND 
[SPC T RY$QN,SE,RVS0FF3NI)" 

4031 PRINT "[RIGHT4 3 MARKERS 
FOR THE TEXT TO BE PRINT 

ED" 

4032 PRINT "[RIGHHKCSn/ 
tSNl) ? "; 

4033 GET At: IF A*- n N" THEN 5 



4034 IF AiO'Y" THEN 4033 
4*35 PRINT ■CWpOJURl 1 
4040 PRINT ' , RIG-HT4 , 56] 
IVE WIDTH DF LEFT HAND 
MARGIN* 
4045 INPUT "[R1GHT4JU-30) 

; "jLM$:L!1«VAL(L«$> 
4050 IF UKi OR LH>30 OR LN< 
>INT(LN) THEN PRINT " 
[DDNH,JtIEiHT4, 51 INVALID 
[SPC,SN]UNBER!*!fiOT0 4040 
4052 POKE 53:01,1m 
4055 PRINT "ED0ltN2,RIGHT4,SE] 
IVE II DTK OF RIGHT HAND 
MARGIN" 
4060 INPUT '[RI&BT41 11-301 

! , jRH*iRH=VAL{RHt) 
4065 IF RN(1 OR R«)30 QR RM< 
>INT(RNI THEN PRINT * 
[ BONN ,RIGHT4, SI INVALID 
tSPC,SN]UHBER!":6flT0 4055 
4067 POKE 53212, B0-LH-RW 
4070 TL=B0-LH-R« 
4090 PRINT '[00HN2,R!GHT4,SD] 
0 YOU REQUIRE A HOLD AFTE 
ft EACH" 
4081 PRINT "[RI6HT4 3 PRINTED 

PAGE t[5Yl/[SN3> ? 'j 
40B2 POKE 53205,0: GET A! 
stF At*'Y' THEN POKE 5320 
5,1:PRINT *tSY3":GOT0 40S5 
40B3 IF AtO'N" THEN 4082 
4034 PRINT "CSN3 B 
4085 PRINT "(CLEAR, DQNN3, 
RIGHT4,SP]ABE NW8ES1NG 
TYPES AVAILABLE I * 
40B6 PRINT ■CDQMN2,RI6HT431> 

tSPC T SN)0 PAGE NUMBERS" 
4087 PRINT * E DOHN f RI 6HT4 ] 21 
(SPC,SP3AGE NUMBERS AT 
TOP OF PAGE" 
40BB PRINT "[D0NN,RISKT4]3J 
[SPC, SP] AGE NUMBERS AT 
FOOT OF PAGE" 
4flB9 PRINT ■lDONN2 t RIEHT4 J Sm 
HIGH DO YOU REQUIRE 11-3) 
? 

*m GET AiiA s VAL(Af > 



s IF A<1 OR A>3 THEN 4090 
4091 PRINT A*: POKE 53215,A-1 

SIF A=l THEN 4150 
4100 PRINT l [[)aHN2,RIGHT4 l SG] 

IVE NUMBER OF FIRST PAGE' 
4105 INPUT ■[RIGHT43(1~900} 

■;PCtiPC«WL(PC$) 
4104 IF PC*0 OR PO900 OR PC 

OINT(PC) THEN 4100 
4107 IF PCU00 THEN PC*=*0"+ 

PCI i IF PCU0 THEN PC$="0" 

+PCI 

410B FOR 1*1 TO 3 
: IF MlDKPCt.I, 
IX"* 1 OR nid*<pc*»i, 
ID'V THEN 4115 

4109 NEXT 

4110 IF PO0 AND PC<901 THEN 
4120 

4115 PRINT " CDOWN s Rl 6HT4 p SI ] 

NVALID£SPC,SN3UMBER!!' 

{GOTO 4100 
4120 FOR 1=1 TO 3 
4130 POKE 53207+ L 

ASC(MID^PCI t 4-I T i));NEn 
4140 POKE 53216, INT(<80-LM-R 

HJ/2HLK-2 
4150 PRINT "[CLEAR, DONN3, 

RIGHT4,SH]GW MANY LINES 

PER PAGE' 
4155 PRINT "CR1GHT43 

(NQRHALLY 65) 'j 
4160 INPUT At! A=VAL(A$1 

ilF A<15 OR A>100 DR AOI 

NT (A) THEN 1150 
4165 POKE 53204, ft-9 
4.170 PRINT "ID0NN2,RIGHT4,SH] 

ON MANY COPIES DO YOU RES 

UlRECSPC103(l-9) ? 'j 
41B0 GET A*fCI=VALlA») 

ilF CK1 THEN 41&0 
4182 PRINT A$ 
41B5 POKE 53206,01 

;POKE 53190,0: POKE "531 96,0 

4190 PRINT ■[CLEflft ! D0WN3 l 
R1BHT4,SY30U CAN PRINT 

TO' 

4191 PRINT M LDQHN,ftiGHT4]l) 
[5PC,SC30HH0DORE PRINTER 

(CSD3EVICE 4J" 

4192 PRINT i [DOWN,RlGHT432) 
[SPC,SC3ENTRONICS PRINTER" 

4193 PRINT 1 [D0NN3,RIGHT4,SN] 
HI OH DO YOU REQUIRE (1/29 

? '■ 

4194 GET AS} IF AtO'l" AND A 
»<>■ 2" THEN 4194 

4195 POKE 53l8S,VAL(A«)-l 



: PRINT Al 
4200 PRINT ' [CLEAR, D0KN2, 
RI&HT4 1 SE3NSURE PRINTER 
IS SNITCHED ON" 
4210 PRINT "[DOWN, R1GHT43 AND 
POSITION PAPER AT FOLD 
:" 

4215 IF At="2" THEN PRINT 

;GQTQ 4260 
4220 PRINT "[B0NN,RIGHT4,C8 J 

RVSON]O[SPC30]O" 
4230 PRINT "ERI6HT» r RVS0N] 



4240 PRINT , [RIGHT4,fiVSQN]0 
[BLACK, SPC,C4,SPC, BLACK, 
BPC,CS»SPC273D" 
4250 PRINT "IRIGHTfl.RVSON^, 
C+,BLACK,SPC,C4 f SPC,BLACK f 
SPC,C4,C+2B,BLACK3" 
4260 PRINT I [DDNN P R1GHT2,SP] 
RESSESPC, RVSON f SPC, SS, 5P, 
SA,SC,5E3 tRVS0FF,SPC]T0 
COMMENCE PRINTING 
: GOSUB 13020 
4270 PRINT "I CLEAR, BLACK, 
0ONN5,RI6HT5,SP3RESS[SPC, 
AVSOH, SS r SH f S 1 , 5F T ST p 
flVSOFFjSPUTO INTERRUPT 
PRINTING' 
4275 PRINT "[WHITE, RI6HT11 , 
RV5QN,SPC,SP,SR,SI,SN,ST, 
SI,SN,5G1 tSP,SA,SU,SS,SE, 
SD f SPC ! RV50FF3 B 
42S0 PRINT " [BLACK, DQNN2, 
R 1 6HT 1 5 , RVSDH , SPC , SP fl SR , 
SI,Sjf,5T,5Ii5N t SB,5PC, 
RVSQFF3" 
42B5 PRINT "INHITE,SPC5,SP] 
RESE E SPC , FVSO-S , SPC, 5S , SP 5 
SA,SC,SE,SPC,RVS0FF,SPC7, 
SP]RESSCSPC,RVS0N,SPC]F7 
[SPC,RVSOFF3 - 
4287 PRINT "[SPC63 
TO CONTINUEtSPCB] 
TO ABANDON [BLACK 3 " 
4290 SYS PO 
4292 POKE 53230,6 
4295 IF PEEK (53189 ) 05 THEN 
4300 

4297 PRINT 1 [CLEAR, D0NH4, 
RIGHT9,SP1RINTER NOT AVftI 
L ABLE! 100^3]"; GOSUB 13000 
:GOT0 500 

4300 IF PEEK (53222) -0 THEN 4 
400 

4310 PRINT "[ CLEAR, D0HN4, 
RIGHT4,SH1ARKERS NOT PDSI 



HONED CORRECTLY 1 CD0NN3 3" 
4320 GO SUB 13000: GOTO 500 
4400 PRINT ' [CLEAR, D0NN4 f 
RIGHTiajRVSDNjSPCSPjSR, 
SI s SN, ST s SI , SN , SE , SPC, SC, 
SO,5M,SP,SL 3 SE,ST,SE,SD, 
SPCRVSOFF^ONNSJ" 
4410 GOSUB 13000: GOTO 500 

4999 REN HI DISK HANDLING 
ROUTINES til 

5000 PRINT " [CLEAR, DDHN3, 
RIGHT10,RVSON,SDJISK[SPC, 
SF3ILE[SPC,SHIANDLING 
[RVSOFF]" 

5050 PRINT "tD0NN2 J RIGHT43n 

[SPC,SD]ISK[5PC,SD] 

I RECTORY" 
5060 PRINT " [ DOWN, R I BHT4 12> 

[SPC,SR3ENANE A[5PC,SF] 

ILE" 

5070 PRINT "[DONN.RIGHT433) 
CSPCSD1ELETE A[SPC,SF3 
ILE" 

5090 PRINT , [DONN,RIGHT434) 
[5PC,SR3£TURN TQISPC,5Hi 
AINCSPC,SM3ENU" 

5100 PRINT '[D0NN2,RIGHT4,SM] 
HICK DO YOU REQUIRE (1-4) 
?" 

5110 GET At: A=VALEAt) 

:IF A<1 OR A>4 THEN 5110 

5120 ON A GOTO 5200,5500, 
5700,510 

5199 REM It DISK DIRECTORY 
If 

5200 PRINT '[CLEAR] 1 } 

CHRt (1 42) s PRINT " [D0HN2, 
SPC4]PRESStSPC,RVS0Nl 
SHIFT[RVS0FF,SPC3T0 PAUSE 
DIRECT0RYIDDNN2]" 

5210 SYS DR 

5220 GOSUB 13100 

5230 PRINT , [CLEAR]"jCHRXl4) 
:GOTD 500 

5499 REM II RENAME A FILE 
tt * 

5500 PRINT "[CLEAR 3"; 

am (1421 

5510 PRINT ■[D0WN2,RIGHT41 
GIVE PRESENT FILENAHE !' 
5520 PRINT "CDOKN, RIGHT*] 

1234567990123456" 
5530 INPUT H [RIGHT43";Nli 

iNl=LEN(Nl*t 
5540 IF N1C2 OR ND1A THEN P 

RINT "CDONN f RIGHT43 

INVALID FILENAME! ! B 

:G0TO 5510 



555S PRINT "[D0HN2, RIGHTS 

GIVE N£hT FILENAME 
5560 PRINT a rDDUN,RIfiHT6] 

1234567899123456' 
5570 INPUT TRISHT43";N2* 

:N2*LEN{N2t) 
55B0 IF N2<2 QR N2>16 THEN P 

RINT 1 [D0MN,RIGHT4I 

INVALID FILENAME"" 

tGOTO 5550 
55*0 PRINT -CDDHHZpRIEHTlSf 

RVSOK, SPC ]REN AITI N6CSPC, 

RVSDFF1" 
5595 FH1=Nlt 
5600 DPEN 15,8,15, "R 

j"+N2t+"*'+Nlti CLOSE IS 
5610 DPEN 15,8,15 

: INPUT#15,ER,ERt;CL0SE 15 
5620 IF ERM? THEN PRINT 1 

[CLEAR, D0HN3,RIGHT73F1LE 
ERROR ! * : SQSUB M040 
5631 GOSUB 13100:PRINT 1 

[CLEAR]"; CHRI ( 14) :GDTD 500 

5699 REM It DELETE FILE II 

5700 PFINT M I CLEAR]'; 
Oft* (142) 

5710 PRINT "CDDHN2,RIGHT43 

GIVE mi OF FILE TD BE 
DELETED i" 
5720 PRINT '[DOM, RIGHT*] 

1234567890123456" 
573? INPUT "CRI6HT41-; Nl* 

jNl^LEN (Nit) 
5740 IF NK2 OR N1M6 THEN P 

RINT " CDQlilip RIGHT4 ] 

INVALID FILENAME! r * 

: GOTO 5711 
5750 PRINT " £DQHN2 9 RIEHT15, 

R V SOKp SPC 1 1>ELET I JlS C SPC p 

RVSOFFl' 
5760 OPEN 15,9,15, 'Si'+Nl* 

: CLOSE 15 
5770 OPEN 15,8,15 

!lNPUT#15,ER,ERt!CL0SE 15 
5780 IF ER > 19 THEN PRINT " 

C&ONN.RIBHT10IFILE ERROR! 1 

iGDSUB 14040 
5790 GOSUB 131 00: PR INT H 

t CLEAR2 " ; CHS* ( 1 4> s GOTO 500 
5920 GOSUB 130001 GOTO 500 
6999 REM ttl WORD C3LTNT ttl 
?00ff PRINT "[ CLEAR, DQKN2, 

HI&HT14,RVSON,SW,SO,SR,SD3 
ESC,SQ,SU T SN, ST, RVSOFF] 
7010 PRINT ir [D0UN2, RI6HT3,SH] 

AVE VOU SET THEtSPCjRVSDN, 

SB , RVS0FF3EGINNIH& AND 

JSPC,RVSQN,SE,RVSOFF3ND' 



7020 PRINT "IRIGHT3 MARKERS 
FOR THE TEXT TQ BE COUNT 
ED" 

7?!0 PRINT "ERIGHT33 ( C SY ] / 

tSNI) V 
7040 GET At: IF At=*N" THEN 1 

010 

7050 IF AIOT THEN 7040 
7110 PRINT , [DGWN3,SPC3,ST] 

HIS TEXT CONTAINS*; 
7120 SYS Ml: REM X DO NORD 
COUNT 

7130 PRINT PEEK (53236! ♦ 12561 
PEEK 153237) ); "WORDS." 

7140 PRINT ■CD0HN3,SPC3*SP1 
R£SSCSPC p flVSQJl t SPC 5 SS,SP f 
SA,5C,SE1 E RVSOFF, 5PC3TD 
CONTINUE i" 

7150 GET AtsIF AtO" * THEN 
7150 

7160 GOTO 500 

7999 REM It! RESTART PROGRAM 
ttt 

G000 PRINT "[CLEAR, D(M2, 

RIGHT16,RVSON,SR t SE,S5,ST, 

SA,SR, ST, RVSOFFl" 
B010 PRINT 'EDQWN3, RIGHTS, SB! 

0 YOU m\\ TO RESTART t 

1SY3/CSNI) 7' 
8020 GET At! IF At='N" THEN 5 

00 

B030 IF AIOT THEN 8020 
S040 GOTO 100 

8999 REM lit EXIT PROGRAM 
ttl 

9000 PRIM " [CLEAR, DDWN2, 
RI&HT1B,RVSQN,SE,S*,SI,ST, 
RVSOFFl" 

9010 PRINT '[DQWN3,RI6HT5,SD] 
Q YOU WISH TO EXIT ttSYV 
ESN3J V 

9020 GET AtsIF At='N" THEN 5 
00 

9030 IF AtO'Y" THEN 9021 
9040 PRINT CHRtU*7)CHR$(9)C 

HR!U42r[DOM20,SPC2, 

LEFT3]*f 
9050 POKE 631 ,32: POKE 632,20 

:P0KE 198,2 
9060 END 

9999 REN tit SET UP DOUBLE 
BYTE IN KEHORY ttt 

10000 HB=INT(NR/256) 
!lB=NR-(HBt256) 

10010 POKE AD, LB: POKE ftD+l,HB 
: RETURN 

10499 REM lit GET NUMBER FRO 
H TWO BYTES ttl 



10500 NR=PEEK(AD)+(256IPEEK( 
AD+ 1 M ! RETUflN 

11999 REM lit HELP FACILITY 
tt 

12000 PRINT ETf ;X1* 

12009 PRINT 'C DOWN, RIGHTS, 
RVSOH, SC> ST, SR, SL, RVSDFF, 
SPC, LEFT-ARROW, 5PC2,SR] 
ETURN T0CSPC,5H]ENU" 

12010 PRINT "fDGWN, RIGHTS, 
RVSON,SC,ST,SR,SL,RVSOFF, 
SPC,UP-ARR0W,SPC2 J SP1RINT 
[SPC,SE]DITDft[SPC,SC] 
QMNANDS 1 

12011 PRINT *[D0WN,RI6HT5, 
RVSON,SC,ST ! SR I SL y RVSQFF f 
SPC]£CSPC2 ! SE]«TER[5PC,SS] 
EARCH/[SR3EPLACEISPC,SH] 
ODE" 

12013 PRINT 'IDDHN, RIGHTS, 
RVSDN,SC,$T,SR,SL,RVSOFF, 
SPCJ=[SPC2,SK3EY[SPC,SR] 
EPEATrSPC,SO3N/tS0]FF" 

12014 GOSUB 13000 

12015 PRINT ETt;nt 

12016 PRINT "[DOWN, RIGHT, 
RVSDN,5C,SR,SS,SR,RVS0FF] 

CSR] I GHT CSPC2, S« JOWEtSPC, 
SC]URSQRISPC,Sr]QRNARD 
[SPC,S01NCE" 

12017 PRINT "[DOWNRIGHT, 
RVSOK, 5C,SR, SS, SR, RVSOFFl 

[SUEFTISPC3,SH3DVEESPC, 
SC:URSOR[5PC,SB]ACK[SPC, 
SOJNCE - 
12019 PRINT "EDDNN, RIGHT, 
RVEON,SC,SR,5S,SR, RVSOFF] 

[SU]P[SPC5,SN]OVE[SPC,,5C] 
URSORCSPC.SB3ACK 40" 

12019 PRINT "IDONN, RIGHT, 
RVSOK, SC,SRp SS, SR, RVSOFF] 

CSD3ONNCSPC3,SH]0VEtSPC, 
SC]UR5aR:S D C«SF]DRHARD 
40" 

12020 GOSUB -3000 

12021 PRINT' ETI;Xlt 

12122 PRINT "CDOiW, RIGHTS, 
RVSON,Si:,£L,SR,RVSOFF, 
SPC3,SS3PLIT/tSUlNSPLIT 
:SPC,SW10RDS" 

12023 PRINT DOWN, RIGHTS, 
RVSON,SK, SO, SM,SE, RVSOFF, 
SPC2,SHlOVEtSPC,SClURS0R 
TO TOP OF SCREEN H 

12030 GOSUB 13000 

12032 PRINT ETtjXlt 

12035 PRINT , EDDNN,RIGHT6, 
RVSONjSPCJFUSPC, RVSOFF, 



entered, and the required 
device is not present, an error 
message will appear and 
pressing SPACt will cause a 
return to the main menu. If file 
deleting or renaming is at- 
tempted without a disk drive 
available, the program will 
break and return to Basic Re- 
entry to the program is possible 
by typing GOTO 500. 

c) Printing: As each line is 
formatted for printing, single 
or double spaces at the 
beginning or end of lines are 
removed lo assisi in keeping 
straight margins. Thus if an in- 
dentation to indicate the start 
of *\ paragraph etc is required, 
it should be at least three 
spares long. 

d) Word count: This routine 
increments the word counter 
each time it encounters a non- 
spaceApace combination in 
the text. Thus hyphens, 
commas, full stops etc. will be 
counted as words unless there 
is no space between them and a 
word, and the word count 
should only be laken as un 
approximate figure of the 
number of actual words, 

e) STOP and RESTORE: Whilst 
in the editor, the STOP key is 
disabled, but holding down 
STOP and pressing RESTORE 
will reset the computer as 
usual. Re-entry is not possible. 
But wiih the editor, STOP and 
RESTORE behave as usual, 

f) Memory usage: The Basic 
program is about 10K long, and 
resets the top of Basic memory 
to 19968 (S4E00). The text is 
stored from 120000 (S4E20) up 
to a maximum of 40959 ($9FFF). 
The machine code is situated in 
the 4K RAM space starting at 
49T52 (SCOOO) and is just over 
3K in length. The remaining 1K 
is used for data storage by the 
machine code routines. 

Notes on Typing the 
Programs 

Typing in the program should 
pose few difficulties, though 
care should be taken with the 
data, and some of the print 
statements. A checksum is 
included in the data loader, 
and this will detect most errors 
in the data. If an error occurs, 
check variables A and C to 
assist in debugging the data. 
While typing the data, a 
running check of line length 
comparisons should be made 
e.g. if line 1300 is two characters 
longer than line 1290 in the 



SPC3,ST,Sfl s SB f SPCH[SP] 

RINT FIVE SPACES) 
12040 PRINT '[B0kN,RI&H?6, 

RV50N f SPC ] F3tSPC, R VSOFF , 

SPC3, SD3ELETE WORD BEFORE 
CURSOR" 
12045 PRINT ■t&0»N s RI6HT6 i 

RV5W, SPC1F5CSPC, RVSDFF, 

SPC3,SC]URS0R BACK TD LAS 

T SPACE- 

12050 PRINT -EDDttW, RISHTA, 
BVSON , SPC JF7 [ SPC , RVSDFF p 
SPC3,SC]UR55R FORWARD TD 

NEir 

12051 PRINT "CR]GHT6,SPC7] 
SPACE' 

12055 gosub izm 

12060 PRINT ETlsXif 

12062 print tdonn, right6, 
rvson,spc]f:espc,rvsoff, 
bpc3,sh3dve cursor up one 

PAGE" 

12063 PRINT TDDWN, RIBHT4, 
RVSON r SFC 1 F [ SPC , RVSOF F , 
SPC3,S0JELETE 40 CHARS 
BEFDREC5PC1BKUR50R* 

12664 PRINT " EDC3HM, RI6HT-6, 
RVSON, 5PC3F6CSPC, RVSDFF, 
5PC3 1 SHN5ERT 40 SPACES 
AT CURSOR" 
12045 PRIST "[BONN,RIGHTfc, 
RVSON, SPC] F8ESPC, RVSDFF, 
SPC:.,SM]QVE CURSOR DOWN 
ONE PAGE" 

12067 &OSJB 13000 

12068 PRINT ETi;U* 
12070 PRINT "[CUWNp RI6HT2, 

RVSDN, SC, SB, 5H, RVSOFF, SPC, 
RVSON, SPC] Fit SPC, RVSDFF, 
SPC2 f SC3HANGE BACKGROUND 
COLOUR" 
12072 PRINT ■tDQWN,RIGHT2, 
RVSON, SC, SB, SM , RVSDFF, SPC r 
RVSON,SPC3F3[SPC f RVSOFF, 
5PC2,SC]HANEE BORDER COLD 
UR" 

12074 PRINT nDDWl,RISHT2, 
RV50N,SC ( SB,SMVSOFF ( SPC, 
RVSDN, SPC IFSfSPC, RVSDFF, 
5PC2,SC]HAN6E TEH COLOUR' 
12080 EOSUB 13000 
12092 PRINT K%\l2%\m 
12100 PRINT -CDOHN, RIGHTS, 
RVSDN, LEF T- ARR Qi , RV SOFF , 
SPC2,SR,SE T ST,5U,SR,5N, 
SPC,SC]HARACTER' 
12U0 PRINT "[DOWN, RIGHTS, 
RVSDN, SP, RVSDFF, SPC2,SF I 
QRCE C SPC , SN ] EH t SPC , SP 1 AG E " 



12120 PRINT *tBQNN,RIEHTS F 
RVSON, SD, RVSDFF, SPC2, 3D] 
QUBLE [ SPC f SL ] INE [SPC , SS3 
PACING" 

12130 print "[d0un,ri6ntb, 
rvson, ss, rvsoff, bpc2,ss] 
:ngle[Spc s suineispc,ss] 

PACING* 
12140 GDSUB 13000 
12170 PRINT ETI;I2I;XXI 
121S0 PRINT " [DDttN, RIGHTS, 

RVSON, SR, RVSOFF, SPC2 , SR] 

IGHT[SPC,SJ]USTIFY[SPC,ST] 

EXT" 

12190 PRINT -£D0WN,RIBHT8 S 
RVSON, 51, RVSOFF, 5PC2,SL] 
EFT C SPC, S J JUST IFYE SPC, ST ] 
EIT" 

122J30 PRINT H [D0NN,R1GHTB* 
RVSON , SJ , RVSDFF , SPC2 , SR 3 
18HT itSPCpSLJEFTCSPCSJ] 
USTIF¥[SPC,ST]En n 
12210 PRINT "EDOWN, RIGHTS, 
RVSDN, SC, RVSOFF , 5PC2 , 5C 3 
ENTRALISEC SPC,ST ]EXT ON 
ESPC,SLJINE* 
L2234 GQSUB 13000 
12236 PRINT ETI;nt;n$ 
12260 PRINT *C DOWN, RIGHTS, 
RVSON,SB,RVSDFF,SPC2 ) SB] 
EG INNING OFCSPC,SB]LDCK 
[ SPC, SN3ARKER* 
12270 PRINT "CD0WN,HIBHT8, 
RVSDN, SE* RVSOFF, SPC2,SE] 
ND OF[SPC,SB]LDCK[SPC,SM] 
ARKER"* 
12275 &DSUB 13100 
I22B& PRINT ETI;3£3$ 
12290 PRINT " [DOWN , RISHTfc* 
RVSON,SC,ST,SR,SL, RVSDFF, 
SPC3 : [SPC2 ) SE]NTERESPC,SS] 
EARCH/[SR)EPLACEESPC,SM] 
OBE" 

12300 PRINT "[DONN2,RKHT5, 
SH3HEN [SPC p SS ] EftRCH C SPC , 
SSHRING ISCSPC,SF]DUND 
■ ■ 

12310 PRINT "LDOKN.RIGHTll, ' 

SR p SPC2, SRJEPLACE ESPC t SS ] 

EARCH[SPC,SS]TRIN&' 
12320 PRINT B [DOWN, SIGHTS, 

RVSaN,SPC,SS,SP,Sfl f BC»SE t 

SPC,RVS0FF,SPC2,SF]IND 

[SPC,SN)EnCSPC,SO] 

CCURRENCE OF* 
1232S PRINT H ER1GHT14,SS] 

EARCHISPCSS2TRIUG" 
12330 PRINT "CDOWN,PIGHTi, 

RVSON P SR,S£,ST,SU,SR,SN, 



rvsdff,spc2,sl]eavecspc, 
ss]earch/csr]eplaceespc, 
m«' 
12335 print 'cri&ht14iand 
[spc,sr3eturm tdcspc,se] 

DITOR" 

1243 BDSUB i3000iGOTD \m 
1299? REM lit HAH FOR SPACE 

PRESS Ht 
13000 PRINT i ED0*(H l RI5HT7,SP3 
RESS[SPC,RVSON,SPC,SS,SP, 
SA,SC,SE] [RVSDFF, SPD]T0 
CONTINUE 
!3020 GET AI:IF «<>■ " THEN 

13020 
13030 RETURN 

1309* PRINT H [DDNN, RIGHT12I 

PREPARE DISK AND* 
13100 PRINT *IDQHN,RIGHT7] 

PRESS tSPC , RVSON, SPC3 

SPACE [RVSOFF, SPC] 

TQ CONTINUE :" 
13120 GOTO 13020 

13999 REM ttt GET DISK STATU 

s m 

14000 IF 5TO0 AND STC64 TH 
EN 14010 

14005 PRINT "CUP,RIGHT9, 
RVSON]FILE TRANSFER CQMPL 
ETED[RVSOFF]"iGDTO 14050 

14010 PRINT 1 [CLEAR, D0MN3, 
RI6HT7]FILE TRANSFER ERRO 
R!!" 

14020 IF STO-128 THEN 14030 
14025 PRINT" [CLEAR, DQNN3, 

RIGKT71DISK DRIVE NOT AVA 

I L ABLE OR" 
14024 PRINT" ER IGHT7 ] 

FILE EXISTSf EDOHNZJ" 
1402B GOTO 14050 
14030 OPEN 14,6,15 

HNPUTf 16,ER,ERIiCLDSE 16 
14035 IF ER<20 THEN 14050 
14040 PRINT "t&QHN, RIGHT?] 

ERROR t';ER 
14045 PRINT H [JOHN, RIGHT?] (■; 

ERt;') p 
1404B PRINT "EDONN, RIGHT?] 

FILENAME i P ?FM* 
14050 RETURN 

14499 REH tit BIT N CHARS 
FROM DISK BUFFER III 

14500 II** "i FOR M TO N 
; EOSUB 14520 

14510 Zt=Il+At: NEKT: RETURN 
14520 GETt3,Af:IF A$=' M THEN 

At=CHft$(0J 
14530 A=ASE(A$):BP=BP+1 

: RETURN 



1*999 REH til PRINT EDITOR 
HEADER/FOOTER Itt 

15000 PRINT "[CLEAR, RVSDN, 
BLUE, SPC1 2, RVSOFF, BLACK, 
SPC,SW,SO,SR,SD,SP,SR,SO, 
SK,SPC,SE,SD,SI,ST,SO,SR, 
SPC,RVSDN,BLUE,SPClir;NO< 

15010 PRINT , [BLUE,DD«N20, 
RVSDN, BLUE] "jNO*; 

15020 PRINT * [RVSON, SPC4, 
RVSOFF,BLACK,SC,Sr,SR,SL, 
RVSDN, BLUE, SPC, RVSOFF, 
BLACK, UP-ARRDt), RVSON , BLUE, 
SPC]FDR[SPC,SH,SE,SL,SP, 
SPC2 J RVSDFF,BLACK,SC f ST, 
5R,SL,RV5DN,BLUE,5PC, 
BLACK, RVSOFF, LEFT-ARROW, 
RVSON, BLUE, SPC3FQRCSPC, SM, 
SE,SN,SU,SPC3,HDME,DONN2, 
BLACK, RVSOFF]'; 

15030 POKE 2023,140 

: POKE 54295,6;PQKE 1944, 
177JP0KE 56216,6 
:REH t LAST SQUARE 

15840 RETURN 

5999 REM Itt SAVE CURRENT 
EDITOR COLOURS 111 

6000 POKE 532*8, PEEK (53280 I 
:POKE 53249, PEEK (532S1 J 

6010 POKE 53280,6 

:P0KE 53281, li PRINT CHRtJ 

144} : RETURN 
i4?9 REM tit RETURN PREVIOU 

S COLOURS I'M 
6500 POKE 532B0,PEEK (53248) 

: POKE 532B1,PEEK(53249) 

; RETURN 
7999 REM ttt GET AND STORE 

FILENAME tit 
B00& PRINT *[DDKN2,RI5HT23] 

1234567B9012* 
8010 INPUT MRI6HT53GIVE 

FILENAME : "iFflt 
8020 IF LEN(FM*K1 OR LEN(F 

H$)H2 THEN 10000 
8030 Fltf=Flt*+\m M 
B040 POKE 832,LEN(FMI] 
8050 FOR 1=1 TO LENtFfttl 

;FC«=NlDt(FM*J,l] 

:FC-ASC(FCI) 
1B060 IF FC<*"t' OR FC$=*?* 

OR (FCI=\ M AND IOLENIFM 

%)-Z) THEN 18090 
19070 POKE B32+I,FC:NEU 
IB0B0 RETURN 

18090 PRINT "[DQW,RIGHT5] 
INVALID FILENAME! !" 
:GOT0 1B000 

:>-12B THEN 14030 



ce 



listing,, it should also be two 
characters longer in the version 
typed on your screen. 

In the main word processor 
program itself, particular care 
should be taken when typing 
the following lines (refer to the 
table of Commodore control 
characters elsewhere in this 
issue): 

15000-15030 - this prints the 
header/footer for the editor 
and must be exactly the right 
length. 

1700-1720 - this prints the 
header/footer for the search & 



replace facility, and again mu&t 
be the correct length, 
4220-4250 - this is a sketch of 
the paper fold position for 
printing out on a 1525 dot 
matrix printer 

4270-4267 - on-screen printing 
instructions- Note that some of 
the text is in black, and some in 
white. During printing, the 
screen is white, and so only the 
black text is visible. When 
printing is paused, the screen 
becomes black, hence making 
the white text visible. 



14025 PRINT h tCLEAR f DQMN3 l 
RIGHT?] DISK DRIVE NOT AVA 
ILABLE OR' 

14026 PRINT'CRI6HT7] 
FILE E1ISTS![DDHN2] B 

:402a BOTO 14050 
14030 OPEN 14,3,15 

:lNPUTtl4,ER,ER(: CLOSE U 
1«35 IF ER<20 THEN 14050 
14040 PRINT "[DOW, RIGHT?] 

ERROR f;Efi 
14*45 PRINT "[MW«,RIGHT7]r; 

1404B PRINT " [ DOWN, RI5KT71 

FILENAME ! N jFM$ 
14050 RETURN 

14499 REN til BET N CHARS 

FROh DISK BUFFER III 
34500 n="":FDfl 1=1 TO N 

jeosue 14520 

14510 2f=Zt+At!NEnjREnfRN 

14520 &ETI3,A*!lF AM"" THEN 
ftMCHRtifl 

14530 A=ASC(A$):BP=BP+1 
: RETURN 

14999 REN ttt PRINT EDITOR 
HEADER/FOOTER Itt 

l?Mf PRINT * [CLEAR, RV SON, 
BLUE , SPC1 2 , RVSOFF, BL flCK , 
SPC,5W,Sa,5R,SD f SP,SR,Sfl, 
SKjSPCjSE.SDiSI^T^SR, 
SPC, RVSDN f BLUE , SPC 1 1 3 " ; NQS 

15010 PRINT '[ BLUE, DOHN 20* 
RVS0N ? BLUE]';N0*; 

15020 PRINT ■tRVS0N,SPC4, 
RVSQFF, BLACK, SC, ST, SA,SL> 
RVSDN, BLUE, SPC,RVSDFF, 
BLACK, UP-ARR0N,RVB0N, BLUE, 
SPCJF0fttSPC,5H,SE p SL,SP, 
SPC2, RVSDFF, BLACK, 5G,5T, 
5R, SL T R V?0N t BLUE , SPl b 



BLACK, ftVSOFF , LEFT- ARGON , 

RVSDN, BLUE, 5PC ] FDR C SPC , Sh, 

SE p SN , SU^ SPC3, HQflE, D0WN2, 

BLACK, RVSOFF]"; 
15036 POKE 2023,160 

i POKE 56295, 6:PDKE 1944, 

177: POKE 5i21i,4 

i REM t LAST SQUARE 
15040 RETURN 

1599? REH tit SAVE CURREfT 

EDITOR COLOURS ttt 
16000 POKE 5J24Bj PEEK (53230) 

:PQKE 53249, PEEK (53281) 
16010 POKE 53290,4 

:P0KE 53281,1: PRINT CHR*£ 

144}: RETURN 

16499 REN ttt RETURN PREVIOtJ 
S COLOURS ttt 

16500 POKE 532B0, PEEK (53240) 
:P0KE 53281, PEEK (53249J 

: RETURN 

17999 REN ttt SIT AND STORE 

FILENAME ttt 
13000 PRINT "rD0W2,RISHT23] 

1234567890 12" 
[8010 INPUT "CRIGHT53B1VE 

FILENAME : 1 ; FM$ 
18020 IF LENIFHIKI OR LENtF 

M*}>12 THEN 1B000 
1B030 FN$=FN$+ N iTXT" 
19040 POKE B32,LEN(FW*) 
IS050 FOR 1=1 TO LEN(FHW 

:FC*=NlD*(Fttt,I,l) 

:FC=ASttFC*> 
1B060 IF FC*» B t' OR FC$="?' 

OR tFCt*V AND IOLEN(FM 

I) -3 J THEN 18090 
19070 POKE B32+I,FC:NEir 
130B0 RETURN 

IB090 PRINT H tH0WV,R:SHT51 
EfWALlD C ILENAFE:: ; 



How it Works 

10-90 Set up and load machine code section 

100-128 Set up start addresses of machine code 
routines 

130-430 Set up more variables and memory 

500-610 Main menu selection 

100O>1310 Editor entry/exit handling 

1500-1760 Search/replace handling 

2000-2150 Save routine set up 

3000-3070 Load routine set up 

40OO-4195 Printout option selection 

4200-4410 Printout entry/extt handling 

5000-5920 Disk file handling routines 

7000-7160 Word count handling 

8000-8040 Restart program 

9000-9050 Exit program 

10000-10010 Put double byte number into memory 

10500 Get double byte number from memory 

12000-12450 On-screen help facility 

13000-13120 Press SPACE requests (upper and 
lower case) 

14000-14050 Get disk status and print any errors 

15CKKM5Q40 Set up editor screen header/footer 

16000-1 6500 Save and replace editor screen colours 

18000-1 809 D Get filename and transfer to memory 



Enmpumart 

7/tt\V 
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I Polar problems with iff 
[month's e 

POLAR PETE IS THE LATEST GAME TO BE 
featured in the Programmer of the Year 
competition. The game doesn't feature 
really fast, super smooth graphics, but 
instead tan Potts has taken a simple idea, 
added some extremely 'cute' graphics 
and produced an excellent game. A good 
game isn't always complicated. 



The Game 

Your aim is to guide Polar Pete around his 
local ice-pack collecting the blocks of ice 
so that he can build his igloo. Of course 
life isn't made easy as Pete has to avoid the 
penguins and polar bears which always 
seem to be in his way. 

Pete is controlled by a joystick in Port 
2. To pick up a block of ice you must 
position Pete just to the right of a block of 
ice and press the button. Positioning is 
important and it has been found that it is 
best to position Pete so that his nose is just 
above and right of the ice block. 

Once the ice block is collected Pete 
must drag the block back to his pad on the 
right hand side of the screen. Again 
position Pete to the right and press fire to 
deposit the block 

After all of the blocks have been 
collected Pete will build his igloo and go 
on to the next screen. 

The music can be turned off by 
pressing any key on the keyboard. 

Oh, by the way, don't let Pete fall into 
the water as it's very cold! 

Getting It In 

Polar Pete will work on a C64 with either 
tape or disk. 

There are five parts to be entered 
(PETE LOAD 1-5). Each of the five parts 
must be typed into your machine 
separately and saved on to tape or disk. If 
you are using tape do make sure that the 
you make changes where indicated in the 
REM statements. Do make sure that you 
save the programs with thesarne names as 
in the magazine or they will not work. 

Once all parts have been saved turn 
your machine off and on and enter the 
following line: 



PROGRAMMER 

OF THE 

YEAR 



£l commodore 



POKE 16483 J 0;POKE44 J 64:NEW 

Now load PETE LOAD 1' into your 
machine and type RUN. Th'S will load in 
each of the parts as required and save 
them into memory. If you have made any 
errors while typing in any of the data 
statements you will now be told which 
line the error is in. Make the changes 
needed, SAVE the part again and start 
again from the POKE instructions above. 

When all of the information has been 
saved into memory the program will auto- 
matically save itself as 'POLAR PETE', If 



you are using cassette then do make sure 
that you put a clean cassette into the 
recorder after part five has loaded. If you 
don't then 'POLAR PETE' will be saved 
after all of the other parts which are no 
longer needed. 

All you need to do to play POLAR PETE 
is turn your machine off and on and type 

LOAD 'POLAR PETE",0,1 fo disk or 
LOAD "POLAR PETE',1,1 for tape 

Once the program has finished 
loading type RUN and play the game. 




2000 FOR L=0 TD l5iiH»ff 
{FDR D=0 TO IE: READ A 
:C*-OA:P0KE 2049+H16+D, 
AiNEIT B 

2010 READ As IF AOH THEN PR 
INT'ERROR IN LINE"; 
2040+{LU0);STOP 

2020 NEIT L 

2040 DATA 13,8,10,0,150,40, 
50 , 5i, 49,54, 41 , 0, 0, 0> 2S4, 
234,947 

2050 DATA 234,234,234,234, 
234,234(234,234,234,234, 
234,234,234,234,234,234, 

m 



2M DATA 234,234,234,234, 
234,234,234,234,234,234, 
234,234,234,234,234,234, 
3744 

2070 DATA 234,234, 234, 32, tl, 

8,32,179,1,76,55,8, 169,0> 

141,0,1471 
20S0 DATA 0,0,0,0,0,0,0,31,0, 

31,240,0,240,0,7,128,477 
2090 DATA 0,12,0,0,24,192,0, 

32,32,0,40,32,0,192,0,0, 

556 

2100 DATA 192,0,8,99,254,0, 
43,3,136,0,0,248,0,0,9,0, 
1019 

2110 DATA 0,8,0,0,16,0,0,16, 
0,0,33,0,0,124,0,0,199 



212* BAT A 0,0,127,224,0,192, 
56,0,0,15,0,0,1,192,0,0, 
807 

2130 DATA 96,0, », 48,0,0,24,0, 

0,12,0,0,4,0,0,4,188 
2140 DATA 0,0,4,0,0,4,0,0,4, 

8,2,4,15,14,24,25,96 
2150 DATA: 250,14,40,6,24,100, 

5,8,194,9,8,60,15,248,0,0, 

983 

2160 DATA 0,0,0,0,0,0,0,31,0, 
31,240,0,240,0,7,128,677 

2170 DATA 0,12,0,0,24, 192, 0, 
32,32,0,41,32,0,192,0,1, 
556 

2180 DATA 192,0,8,99,254,8, 
63,3,136,0,0,252,0,0,12,0, 
1027 

2190 DATA 0,4,0,0,12,0,0,22, 
0,0, [3,0,0,43,0,0, 119 

2200 DATA 0,0,127,224,0,192, 
56.0,0,15,0,0,1,192,0,0, 
807 

2210 DATA 96,0,0,46,0,0,24,0, 

0,12,0,0,4,0,0,4,18a 
2220 DATA 0,0,4,0,0,4,0,0,4, 

0,0,0,31,12,16,33,112 
2230 DATA 250,16,32,2,32,16, 
4,48,16,4,72,240,15,248,0, 
0,995 

2240 DATA 0,0,0,0,0,248,0,0, 

15,248,0,0,15,0,0,1,527 
2250 DATA 224,0,0,48,0,3,24, 

0,4,4,0,4,20,0,0,3,334 
2260 DATA 16,0,3,16,127,198, 

17,192,252,31,0,0,16,0,0, 

16,884 

2270 DATA 0,0, 8,0,0, 8,0,0, 

132,0,0,126,0,0,0,0,274 
2280 DATA 0,0,0,7,254,0,28,3, 

0,240,0,3,128,0,6,0,669 
2290 DATA 0,12,0,0,24,0,0,48, 

0,0,32,0,0,32,0,0,148 
2300 DATA 32,0,0,32,0,0,32,0, 

0,32,64,0,24,112,240,8,576 
2310 DATA 95,152,24,96,20,16, 

160,38,16,144,67,31,240, 

60,0,0,115? 
2320 DATA 0,0,0,0,0,248,0,0, 

15,248,0,0,15,0,0,1,527 
2330 DATA 224,0,0,45,0,3,24, 

0,4,4,0,4,20,0,0,3,334 
2340 DATA 16,0,3,16,127,198, 

17,192,252,63,0,0,48,0,0, 

32,964 

2350 DATA 0,0,48,0,0,104,0,0, 
72,0,0,252,0,0,0,0,476 

2360 DATA 0,0,0,7,254,0,28,3, 
0,240,0,3,128,0,4,0,669 



2370 DATA 0,12,0,0,24,0,0,48, 

0,0,32,0,0,32,0,0,146 
2380 DATA 32,0,0,32,0,0,32,0, 

0,16,0,0,8,48,248,8,424 
2390 DATA 95,132,4,64,4,12, 

32,8,18,32,8,31,240,15,0, 

0,695 

2400 DATA 0,0,0,168,0,2,170, 
0,2,170,0,10,148,128,10, 
168,996 

2410 DATA 128,42,170,144,42, 

170,84,42,170,85,42,170, 

85,42,160,128,1704 
2420 DATA 42,128,32,42,160, 

32,42,160,32,42,160,32,42, 

160,32,42,1180 
2430 DATA 160,128,42,162,80, 

22,169,80,21,69,64,5,69,0, 

0,0,1071 
2440 DATA 0,0,0,148,0,2,170, 

0,2,170,0,10,168,128,10, 

148,996 

2450 DATA 128,42,170,144,42, 

170,84,42,170,85,42,170, 

85,42,160,128,1704 
2460 DATA 42,128,32,42,160, 

32,42,160,32,42,160,32,42, 

160,32,42,1180 
2470 DATA 160,128,42,162,0,6, 

1 49 , 64, 5, 65, 64, 5, 69, 0,0,0, 

959 

2480 DATA 0,1,0,168,0,2,170, 
0,2,170,0,10,168,128,10, 
168,996 

2490 DATA 128,42,170,144,42, 

170,84,42,170,85,42,170, 

05,42,160,128,1704 
2500 DATA 42,128,32,42,160, 

32,42,160,32,42,160,32,42, 

160,32,42,1180 
2510 DATA 160,128,42,162,0, 

10,169,0,1,85,64,1,85,64, 

234,169,1373 
2520 DATA 0,141,92,3,141,93, 

3,141,94,3,141,93,3,141, 

96,3,1190 
2530 DATA 169,5,32,210,255, 

169,0,141,24,3,169,11,141, 

25,3,76,1436 
2540 DATA 65,13,169,1,141,25, 

208,141,18,208,141,26,208, 

169,0,141,1674 
2550 DATA 52,3,141,56,3,141, 

14,220,141,53,3,169,20, 

141,54,3,1214 
2560 DATA 141,55,3,141,17, 

208, 120, 169, 84, 141,20,3, 

169,11,141,21,1444 
2570 DATA 3,83,96,169,1,141, 



25,208,169,40,141,18,208, 

173,54,3,1537 
2580 DATA 141,22,208,173,55, 

3,141,17,208,32,215,20, 

173,56,3,240,1707 
2590 DATA 16,173,232,3,208,3, 

76,45,13,169,0,141,232,3, 

76,244,1634 
2600 DATA 12,169,1,141,56,3, 

173,53,3,208,3,74,160,11, 

201,1,1271 
2610 DATA 208,3,76,219,11, 

201,2,208,3,76,22,12,76, 

81,12,173,1383 
2620 DATA 52,3,240,3,32,252, 

20, 173, 54,3, 56 , 237 ,52,3, 

201,16,1397 
2630 DATA 144,6,141,54,3,76, 

49,234,105,8,141,54,3,169, 

1,141,1329 
2640 DATA 232,3,162,0,202, 

208,253,238,156,3,24,165, 

253,105,1,133,2138 
2650 DATA 253, U5, 254, 105,0, 

133,254,76,137,12,173,52, 

3,240,3,32,1892 
2660 DATA 80,21,173,54,3,24, 

109,52,3,201,24,176,4,141, 

54,3,1124 
2470 DATA 76,49,234,233,8, 

141,54,3,169,1,141,232,3, 

162,0,202,1708 
2680 DATA 208,253,206,154,3, 

56,165,253,233,1,133,253, 

165,254,233,0,2572 
2690 DATA 133,254,74,137,12, 

173,52,3,240,3,32,18,22, 

173,55,3,1386 
2700 DATA 56,237,52,3,201,16, 

144,6,141,55,3,76,49,234, 

105,8,1386 
2710 DATA 141,55,3,169,1,141, 

232,3,162,0,202,208,253, 

238,157,3,1948 
2720 DATA 24,165,253,105,120, 

133,253,165,254,105,0,133, 

254,76,137,12,2189 
2730 DATA 173,52,3,240,3,32, 

61,22,173,55,3,24,109,52, 

3,201,1206 
2740 DATA 24,176,6,141,55,3, 

74,49,234,233,8,141,55,3, 

169,1,1374 
2750 DATA 141,232,3,162,0, 

202,208,253,206,157,3,54, 

145,253,233,120,2394 
2760 DATA 133,253,165,254, 

233,0,133,254,165,253,133, 

249,165,254,133,250,3027 



2770 DATA 162,0,160,0,177, 

249,157,0,4,232,200,192, 

40,208,245,24,2050 
2780 DATA 165,249,105,120, 

133,249,145,250,105,0,133, 

250,224,240,208,226,2822 
2790 DATA 162,0,160,0,177, 

249,157,240,4,232,200,192, 

40,208,245,24,2290 
2800 DATA 165,249,105,120, 

133,249,165,250,105,0,133, 

250,224,240,208,226,2822 
2810 DATA 162,0,160,0,177, 

249,157,224,5,232,200,192, 

40,208,245,24,2275 
2820 DATA 165,249,105,120, 

133,249,145,250,105,0,133, 

250,224,240,208,226,2822 
2830 DATA 74,49,234,24,145, 

253,105,112,133,249,145, 

254,105,8,133,250,2315 
2840 DATA 142,0,160,0,177, 

249,157,208,6,232,200,192, 

40,208,245,24,2240 
2850 DATA 165,249,105,120, 

133,249,145,250,105,0,133, 

250,224,240,208,224,2822 
2840 DATA 160,0,177,249,153, 

192,7,200,192,40,208,244, 

32,214,22,32,2124 
2870 DATA 214,22,32,168,24, 

32,144,26,169,0,141,56,3, 

76,49,234,1390 

2880 DATA 32,78,28,149,128, 

141,18,212,32,113,28,32, 

201,28,169,154,1563 
2890 DATA 32,210,255,169,147, 

32,210,255,32,145,18,32, 

160,19,32,35,1783 
2900 DATA 11,169,16,141,248, 

3,32,167,27,32,137,25,32, 

20,26,206,1292 
2910 DATA 248,3,173,248,3, 

240,3,7a, 160, 13, 169, 16, 

141,248,3,165,1909 
2920 DATA 203,201,64,240,26, 

173,84,27,208,13,169,15, 

141,24,212,169,1971 
2930 DATA 1,141,86,27,76,160, 

13,169,0,141,24,212,141, 

86,27,173,1477 
2940 DATA 0,220,41,4,208,19, 

169,1,141,53,3,169,2,141, 

52,3,1226 
2950 DATA 32,12,15,32,205,15, 

74,23,14,173,0,220,41,8, 

208,19,1093 
2960 DATA 169,2,141,52,3,169, 

0,141,53,3,32,78,15,32,15, 



16,921 

2970 DATA 76,23,14,173,1,220, 

♦1,2,288,24,149,2,141,52, 

3,169,1317 
29B0 DATA 2,141,53,3,169,142, 

141,250,7,32,144,15,32, 

147,16,76,1370 
2990 DATA 23,14,173,0,220,41, 

1,208,24,169,2,141,22,3, 

169,3,1243 
3000 DATA 141,53,3,169,130, 

141,250,7,32,144,15,32,01, 

16,76,23,1321 
3810 DATA 14,169,0,141,52,3, 

160,4,162,0,202,200,253, 

136,200,240,1940 
3820 DATA 173,0,228,41,16, 

240,3,76,103,13,173,241,5, 

201,8,240,1753 
3030 DATA 11,201,38,240,71, 

201,31,240,67,76,103,13, 

173,66,3,240,1769 
3040 DATA 3,76,103,13,169,1, 

141,68,3,230,252,7,169, 

144,141,63,1591 
3050 DATA 3,169,146,141,64,3, 

169,148,141,65,3,169,150, 



3110 DATA 13,238,70,3,173,70, 

3,201,1,240,16,169,30,141, 

71,3,1442 
3120 DATA 169,0,141,60,3,141, 

69,3,76,217,14,169,20,141, 

71,3,1305 
3130 DATA 169,0,141,60,3,141, 

69,3,32,177,29,32,66,20, 

169,142,1261 
3140 5 AT A 141,250,7,169,140, 

141,251,7,174,70,3,32,29, 

20, 202,209, 1052 
3150 DATA 250,169,0,141,222, 

3,162,0,160,0,136,200,253, 

202,200,248,2370 
3160 DATA 2*6,222,3,173,222, 

3, 20B, 230,76,92,13, 206, 57, 

3,240,1,1963 
3178 DATA 96,169,16,141,57,3, 

149,130,141,250,7,173,251, 

7,201,131,1942 
3180 DATA 240,15,201,132,240, 

22,169,1,141,58,3,169,132, 

141,251,7,1922 
3190 DATA 96,169,0,141,58,3, 

169,132,141,251,7,96,173, 

58,3,240,1737 



SCORE 




141,66,3,158! 
3060 DATA 24,145,253,105,174, 

133,251,165,254,105,5,133, 

252,32,133,17,2201 
3070 DATA 32,66,20,32,253,27, 

32,253,27,76,103,13,173, 

68,3,208,1306 
3000 DATA 3,76,183,13,169,0, 

141,68,3,206,252,7,169, 

143,141,63,1557 
3090 DATA 3,169,145,141,64,3, 

169,147,141,65,3,169,149, 

141, 66,3,1578 
3100 DATA 32,13,28,238,69,3, 

173,69,3,205,71,3,240,3, 

76,103,1329 



3200 DATA 6,169,131,141,251, 

7,96,169,133,141,251,7,96, 

206,57,3,1064 
3210 DATA 240,1,96,169,16, 

141,57,3,169,134,141,250, 

7,173,251,7,1855 
3220 DATA 201,135,248,15,281, 

136,240,22,169,1,141,56,3, 

169,136,141,2008 
3230 DATA 251,7,96,149,0,141, 

5B,3, 149, 136,141,251, 7,96, 

173,58,1756 
324f DATA 3,240,6,169,135, 

141,251,7,96,169,137,141, 

251,7,96,206,2055 
3250 DATA 57,3,240,1,96,169, 



16,141,57,3,173,251,7,201, 

139,240, 1794 
3260 DATA 15,201,140,240,22, 

169,1,141,58,3,169,140, 

141,251,7,96,1794 
3270 DATA 169,0, 141, £0,3, 169, 

140,141,251,7,96,173,50,3, 

240,6,1655 
3280 DATA 169,139,141,251,7, 

96,169,141,141,251,7,96, 

204,62,3,240,2119 
3298 DATA 1,96,169,3,141,62, 

3,173,8,2*0,201,190,240,4, 

238,0,1753 
3308 DATA 200,96,169,211,141, 

29,208,169,227,141,23,200, 

173,63,3,141,2210 
3310 DATA 252,7,173,9,208, 

201,151,240,10,48,4,2*6,9, 

208,96,230,2860 
3320 DATA 9,200,96,169,151, 

141,9,200,169,198,141,0, 

208,96,206,42,2079 
3330 DATA 3,240,1,96,169,3, 

141,62,3,173,6,208,281, 

126,240,8,1602 
3340 DATA 206,8,208,96,238,9, 

288,96,169,211,141,29,208, 

169,227,141,2364 
3350 DATA 23,206,173,64,3, 

141,252,7,173,9,208,201, 

151,241,6,40,1987 
3360 DATA 227,286,9,288,96, 

169,151,141,9,288,169,126, 

141,8,208,96,2172 
3370 DATA 206,62,3,240,1,96, 

149,3,141,62,3,173,9,200, 

201,172,1749 
3300 DATA 240,4,230,9,20B,96, 

169,195,141,29,200,169, 

243,141,23,288,2321 
3390 DATA 173,45,3,141,252,7, 

173,0,2*8,281,174,240,11, 

48,4,206,1913 
3400 DATA 0,288,96,238,8,200, 

96,169,172,141,9,208,169, 

174,141,8,2053 
3418 DATA 208,96,206,62,3, 

240,1,96,169,3,111,42,3, 

173,9,208,1600 
3420 DATA 2*1,189,240,4,286, 

9,218,94,149,195,141,29, 

208,149,243,141,2348 
3438 DATA 23,200,173,46,3, 

141,252,7,173,0,200,201, 

174,240,10,48,1935 
3440 DATA 4,206,8,200,96,230, 

8,200,96,169,109,141,9, 

208,169,174,2051 



3450 DATA 141,0,208,96,160,0, 

195,45,17,145,251,200,192, 

4,200,246,2106 
3440 DATA 24,165,251,105,120, 

133,251,165,252,105,0,133, 

252,168,0,105,2301 
3478 DATA 49,17,145,251,2*8, 

192,4,289,246,24,165,251, 

185,128,133,251,2361 
348* DATA 165,252,185,8,133, 

252,168,0,185,53,17,145, 

251,200,192,4,2114 

3490 DATA 20B, 246,24, 165,251, 

185,128,133,251,165,252, 

105,0,133,252,168,2570 
3508 DATA 0,105,57,17,145, 

251,200,192,4,200,246,96, 

5,6,7,8,1627 
3518 DATA 9,18,18,11,12,10, 

11,13,14,15,16,17,140,0, 

105,99,591 
3528 DATA 17,145,251,200,192, 

7,200,246,24,165,251,105, 

120,133,251,165,2480 
3538 DATA 252,105,0,133,252, 

160,0,105,106,17,145,251, 

200,192,7,208,2213 
3540 DATA 244,96,0,19,20,21, 

22,23,0, 1B,0,M, 8,0, 24, 

489 

3558 DATA 128,30,172,155,105, 

50,219,283,203,248,114, 

115,119,121,125,127,2290 
3568 DATA 124,132,132,133, 

160, 0,1B5, 221, 17, 145,251, 

200,192,4,208,246,2352 
3578 DATA 24,165,251,105,120, 

133,251,165,252,185,8,133, 

252,160,0,185,2301 
3588 DATA 225,17,145,251,200, 

192,4,208,246,24,165,251, 

105,120,133,251,2537 
3590 DATA 165,252,105,0,133, 

252, 160,*, 185,229, 17, 145, 

251,200,192,4,2290 
3480 DATA 2*0,244,24,145,251, 

244,244,244,244,244,244, 

244,244,244,244,244,3578 
48*0 PRINT "[CLEAR] NEK" 

;PRINT'[DDHN2J 

LOAD" +CKRI (34) > "PETE LOAD 
2 , +CHftf(34)+',0 fl 
4810 REN If CHANGE THE ,B 
IN ABOVE LINE TD ,1 IF 
YOU AftE USING TAPE tt 
4020 PRINT , [D0WN4}RU»" 
4830 POKE 631, 13i POKE 632,13 

: FDKE 433, 13: POKE 190,3 

iPRIHT'fHOBE] - 



— 



2m FOR L=0 T Q L56iC)(=0 
iFOR D=0 TD IS: READ A 
5 CX^CI+A: POKE 4549*Ltl4+D, 
fl: NEJCT D 

2010 READ A: IF AOCl THEN PR 
I NT" ERROR IN LINE'S 
2040+{Ltl0):5TOP 

2020 NEIT L 

2041 DATA 251,105,121,133, 
251,165,252,115,1,133,252, 
160,0,185,233,17,2362 

215* DATA 145,251,200,192,4, 
20B,246 T 96,2,3, 4,3, 1, 1, 1, 
1,1358 

2060 DATA 1,1,1,1,1,1,1,1,23, 
31,35,48,54,84,117,243,655 

2070 DATA 112,4,107,252,90, 
94,54, 67,84,118, 156,145, 
138,32,36,36,1607 

2080 DATA 39, 145,228,224, 126, 
113,113,113,113,117,118, 
117,116, 122,122,123,2071 

2090 DATA 129,131,132,132, 
133,121,126,124,128,128, 
115,123,123,123,113,120, 
2110 

2100 DATA 124,132,124,130, 

160,0,185,129,18,145,251, 

200,192,4,208,246,2248 
2110 DATA 24, 165,251, 105, 12f, 

133,251,165,252,105,0,133, 

252, U0,0, 1B5, 2301 
2120 DATA 133,18,145,251,200, 

192,4,208,244,24,165,251, 

105,120,133,251,2446 
2130 DATA 145,252,105,0,133, 

252,160,0,185,137,18,145, 

251,200,192,4,2199 
2140 DATA 208,246,24,165,251, 

105,120,133,251,165,252, 

115,1,133,252,160,2570 
2150 DATA 0,165,141,18,145, 

251,200, 192, 4, 208, 246,96, 

0,30,31,0,1747 
2160 DATA 32,33,34,35,0,30, 

31,0,0,30,31,0,169,174, 

141,4,744 
2170 DATA 208,141,6,208,169, 

0,141,92,3,141,93,3,141, 

94,3,141,1584 
2180 BAT A 95,3,141,94,3,169, 

130,141,5,208,169,151,141, 

7,208,162,1829 
2190 DATA 130,142,250,7,232, 

142,251,7,169,0,141,53,3, 

169,16,141,1858 
2200 DATA 57,3,169,151,141,9, 



208,149,198,141,8,208,169, 

15,141,43,1830 
2210 DATA 208,169,3,141,62,3, 
169,143,141,252,7,141,63, 
3,169,145,1019 
2220 DATA 141,64,3,149,147, 
141,65,3,149,149,141,66,3, 
149,0,141,1571 
2230 DATA 68,3,169,26,141,24, 
208,169,0,141,69,3,141,70, 
3,169,1404 
2240 DATA 10,141,71,3,169,9, 
141,34,208,169,5,141,35, 
208,169,33,1546 

DATA 141,254,7,169,34, 
141,255,7,149,0,141,15, 
208,141,13,208,1903 
2260 DftTA 141,12,208,141,14, 
208,169,11,141,45,208,141, 
46,208, 169,70, 1932 
2270 DATA 141,152,3,141,153, 
3,169,7,141,154,3,169,0, 
141,155,3,1535 
2280 DATA 169,27,141,157,3, 
169,70,141,154,3,169,111, 
133,254,169,94,1966 
2290 DATA 133,253,169,0,141, 
44,208,169,180,141,10,208, 
141,11,208,169,2185 
2300 DATA 43,141,253,7,169,0, 
141,212,3,141,214,3,169,4, 
141,213,1854 
2310 DATA 3,169,13,141,5,212, 
149,10,141,12,212,169,8, 
Ml, 17,212,1636 
2320 DATA 149,1,141,6,212, 
141,13,212,169,8,141,20, 
212,169,15,141,1770 
2330 DATA 24,212,32,39,27, 
169,63, 141, 21, 208, 96, 173, 
54,3,141,77,1479 
2340 DATA 3,169,0,141,54,3, 
169, 105, 133,252, 16T, 120, 
133,251,160,0,1862 
2350 DATA 149,1,145,251,230, 
251,165,251,208,244,230, 
252,165,252,211,141,3154 
2360 DATA 208,236,169,112, 
133,252,169,148,133,251, 
162,0,160,0,169,0,2302 
2370 DATA 145,251,200,192,80, 
208,247,24,145,251,105, 
120,133,251,165,252,2789 
2380 DATA 105,0,133,252,232, 
224,49,208,227,160,0,169, 
2,145,251,200,2357 
2390 DATA 169,3,145,251,200, 
169,4,145,251,200,149,3, 
145,251,200,192,2497 
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2400 DATA 80, 20B, 232, 162,1, 
189,237,17,133,251,199,11, 
18,133,252,32,2144 

2410 DATA 213,16,232,236,71, 
3,208,237,162,0,189,113, 
17,133,251,189,2270 

2420 DATA 123,17,133,252,32, 
41,17,232,224,10,208,238, 
149,227,133,251,2327 

2430 DATA 169,119,133,252,32, 
41,18,173,77,3,141,54,3, 
165,254,133,1767 

2440 DATA 252,165,253,133, 
251,162,0,160,0,177,251, 
157,0,4,232,200,2397 

2450 DATA 192,40,208,245,24, 
165,251,105,120,133,251, 
145,252,105,0,133,2389 

2460 DATA 252,224,240,200, 
226,142,0,160,0,177,251, 
157,240,4,232,200,2733 

2470 DATA 192,40,208,245,24, 
165,251,105,120,133,251, 
145,252,105,0,133,2389 

2480 DATA 252,224,240,208, 
226,162,0,160,0,177,251, 
157,224,5,232,200,2718 

2490 DATA 192,40,208,245,24, 
165,251,105,120,133,251, 
145,252,115,0,133,2389 

2500 DATA 252,224,240,208, 
226,162,0,160,0,177,251, 
157,208,6,232,200,2703 

2510 DATA 192,40,208,245,24, 
165,251,105,120,133,251, 
165,252,105,0,133,2389 

2520 DATA 252,224,240,208, 
224,160,0,177,251,153,192, 
7,200,192,40,208,2730 

2530 DATA 244,96,173,212,3, 
208,6,32,252,20,76,219,21, 
201,1,208,1974 

2540 DATA 6,32,80,21,76,164, 
21,201,2,208,6,32,18,22, 



76,104,1069 
2550 DATA 22,32,61,22,76,159 
22,56,173,10,208,233,2, 

141,10,208,1435 
2560 DATA 176,8,173,16,208, 
41,223,141,16,208,173,16, 

208,41,32,208,1883 
2570 DATA 7,173,10,209,201, 

32,240,25,32,214,24,173, 

168,2,201,1,1711 
2580 DATA 240,15,173,170,2, 

201,1,240,9,173,172,2,201, 

1,240,1,1840 
2590 DATA 96,169,2,141,212,3, 

24,173,10,208,105,2,141, 

10,203,176,1680 
2600 DATA 1,94,173,16,208,9, 

32, 141, 16,218,94,24, 173, 

10,208,105,1516 
2610 DATA 2,141,10,208,144,8, 

173,16,208,9,32,141,16, 

208,173,16,1505 
2620 DATA 208,41,32,240,7, 

173,10,208,201,64,240,25, 

32,214,24,173,1892 
2630 DATA 169,2,201,1,240,15, 

173,171,2,201,1,240,8,173, 

173,2,1772 
2640 DATA 201,1,240,1,96,169, 

3,141,212,3,56,173,10,209, 

233,2,1749 
2650 DATA 141,10,208,144,1, 

94,173,16,208,41,223,141, 

16,208,96,206,1928 
2660 DATA 215,3,240,1,96,169, 

4,141,213,3,173,253,7,201, 

41,240,1998 
2470 DATA 31,201,43,240,27, 

173,214,3,240,11,149,0, 

141,214,3,149,1879 
2680 DATA 41,141,253,7,96, 

169,1,141,214,3,169,43, 

141,253,7,96,1775 
2690 DATA 169,42,141,253,7, 



96,206,213,3,240, 1,96,149, 

4,141,213,1994 
2700 DATA 3,173,253,7,281, 

157,241,31,211, 159,248,27, 

173,214,3,241,2322 
2711 DAT ft 11, 169,0,141, 214,3, 

169,157,141,253,7,96,169, 

1,141, 214,1886 
2721 DATA 3,169,159,141,253, 

7,96,169,158,141,253,7,96, 

206,11,218,2077 
2730 DATA 286,11,208,173,11, 

208,281,48,240,18,32,214, 

24,173,168,2,1937 
2748 DATA 201,1,240,8,173, 

169,2,201,1,248,1,96,169, 

I, 141,212,1856 

2750 DATA 3,238,11,288,233, 

II, 208,96,238,11,208,238, 
11,218,173,11,2111 

2760 DATA 208,201,210,240,18, 

32,214,24,173,170,2,281,1, 

240,3,173,2115 
2770 DATA 171,2,201,1,240,1, 

96,169,0,141,212,3,206,11, 

208,206,1868 
2780 DATA 11,208,96,206,213, 

3,240,1,96,169,4,141,213, 

3,173,253,2038 
2790 DATA 7,201,154,240,31, 

281,156,240,27,173,214,3, 

240,11,169,0,2067 
2800 DATA 141,214,3,169,154, 

141,253,7,96,169,1,141, 

214,3,169,156,2031 
2810 DATA 141,253,7,96,169, 

155,141,253,7,96,206,213, 

3,240,1,96,2177 
2820 DATA 169,4,141,213,3, 

173,233,7,201,151,241,31, 

201,153,240,27,2207 
2830 DATA 173,214,3,240,11, 

169,0,141,214,3,169,151, 

141,253,7,96,1985 
2840 DATA 169,1,141,214,3, 

169,153,141,253,7,96,169, 

152,141,253,7,2069 
2850 DATA 96,173,155,3,208,3, 

76,225,22,76,45,23,206, 

154,3,173,1641 
2860 DATA 154,3,201,255,240, 

3,76,5,23,169,7,141,154,3, 

206,152,1792 
2871 DATA 3,173,152,3,201,53, 

240,3,76,5,23,169,1,141, 

155,3,1481 
2880 DATA 206,202,3,240,1,96, 

169,20,141,202,3,173,254, 

7,201,33,1951 



2890 DATA 208,11,169,35,141, 

254,7,169,36,141,255,7,96, 

169,33,141,1872 
2900 DATA 254,7,169,34,141, 

255,7,96,238,154,3,173, 

154,3,201,5,1897 
2910 DATA 240,3,76,81,23,169, 

0,141,154,3,238,152,3,173, 

152,3,1611 
2920 DATA 201,85,240,3,76,81, 

23,169,0,141,155,3,206, 

202,3,240,1828 
2930 DATA 1,96,169,20,141, 

202,3,173,255,7,201,37, 

208,11,169,40,1733 
2940 DATA 141,254,7,169,39, 

141,255,7,96,169,38,141, 

254,7,169,37,1924 
2950 DATA 141,255,7,96,173, 

156,3,205,233,3,16,3,76, 

142,23,173,1705 
2960 DATA 21,208,45,236,3, 

HI, 21, 208,96,173, 21,208, 

13,232,3,141,1778 
2970 DATA 21,288,173,233,3, 

56,237,156,3,141,234,3, 

173,54,3,41,1739 
2980 DATA 7,24,109,154,3,141, 

192,3, 201, 8,48,9,56,233,B, 

141,1337 
2990 DATA 192,3,238,234,3, 



173,234,3,201,1871 
3040 DATA 35,16,37,173,234,3, 

56,233,3,141,234,3,240,11, 

172,234,1825 
3050 DATA 3,169,0,24,105,8, 

136,208,250,141,162,3,173, 

16,203,45,1651 
3860 DATA 236,3,141,16,208, 

76,77,24,173,234,3,56,233, 

35,141,234,1890 
3070 DATA 3,172,234,3,169,0, 

24,105,8,136,208,258,141, 

162,3,173,1791 
3080 DATA 16,208,13,232,3, 

141,16,208,173,162,3,24, 

109,192,3,141,1644 
3090 DATA 162,3,157,12,208, 

173,157,3,205,153,3,16,3, - 

76,111,24,1466 
3100 DATA 173,21,208,45,236, 

3,141,21,208,96,173,21, 

208,13,232,3,1802 
3110 DATA 141,21,208,173,153, 

3,56,237,157,3,141,234,3, 

173,234,3,1940 
3120 DATA 201,31,16,220,173, 

234,3,56,233,1,141,234,3, 

169,0,172,1887 
3130 DATA 234,3,24,185,8,136, 

208,250,24,109,55,3,141, 

13,208,141,1662 
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173,234,3,201,46,16,195, 

173,234,3,208,2158 
3000 DATA 17,173,16,208,13, 

232,3,141,16,208,169,224, 

141,162,3,76,1802 
3010 DATA 77,24,201,1,208,17, 

173,16,208,13,232,3,141, 

16,208,169,1707 
3020 DATA 232,141,162,3,76, 

77,24,201,2,208,17,173,16, 

208,13,232,1785 
3831 DATA 3,141,16,208,169, 

240,141,162,3,76,77,24, 



3140 DATA 15,208,96,169,64, 

141,232,3,173,152,3,141, 

233,3,169,191,1993 
3150 DATA 141,236,3,162,0,32, 

121,23,169,128,141,232,3, 

173,152,5,1719 
3160 DATA 24,105,6,141,233,3, 

169,127,141,236,3,162,2, 

32,121,23,1528 
3170 DATA 96,173,16,208,41, 

32,208,23,173,18,208,56, 

233,24,162,0,1663 
3180 DATA 56,233,8,144,4,232, 



76,229,24,142,188,2,76,9, 

25,173,1621 
3190 DATA 10,208,162,0,56, 

233,8,144,4,232,76,249,24, 

138,24,105,1673 
3200 DATA 28,141,188,2,173, 

11,208,56,233,50,162,0,56, 

233,8,144,1693 
3210 DATA 4,232,76,17,25,142, 

189,2,169,8,133,187,169,4, 

133,188,1670 
3220 DATA 174,189,2,240,16, 

165,187,24,105,40, 133, 1B7, 

165,188,105,0,1920 
3230 DATA 133,188,202,208, 

240,24,165,187,109,188,2, 

133,187,165,188,105,2424 
3240 DATA 0,133,188,160,0, 

177,187,141,163,2,200,200, 

177,187,141,169,2230 
3250 DATA 2,24,165,187,105, 

240,133,187,165,188,105,0, 

133, 163, 177, 1B7, 2186 
3260 DATA 141,171,2,136,136, 

177,137,141,170,2,56,165, 

167,233,120,133,2157 
3270 DATA 187,165,188,233,0, 

133,183,177,187,141,172,2, 

208,200,177,187,2537 
3280 DATA 141,173,2,96,173, 

30,208,141,102,3,41,6,208, 

1,96,173,1596 
3290 DATA 102,3,41,32,208,53, 

173,102,3,41,192,208,80, 

96,169,142,1645 
3300 DATA 141,250,7,169,148, 

141,251,7,169,0,141,52,3, 

141,86,27,1725 
3310 DATA 32,128,26,206,5, 

208,173,5,208,240,13,160, 

4,162,0,202,1772 
3320 DATA 208,253,136,208, 

248,76,184,25,76,115,26, 

173,16,208,41,32,2025 
3330 DATA 240,1,96,173,11, 

208,201,118,16,1,96,201, 

170,43,1,96,1669 
3340 DATA 173,10,208,201,160, 

16,1,94,201,200,48,178,96, 

173,16,283,1985 
3358 DATA 41,64,240,1,96,173, 

13,208,201, 110, 16, 1,96, 

201,170,48,1679 
3368 DATA 1,96,173,12,206, 

201,110,16,1,96,201,209, 

48,144,96,173,1776 
3370 DATA 67,6,201,1,240,13, 

201,2,240,9,201,3,240,5, 

201,4,1634 ^ 
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3380 DATA 240,1,96,169,0,141, 

52,3,173,53,3,208,13,169, 

187,141,164? 
339? DATA 4,2*8,169,150,141, 

5,208,74,97,26,201,1,208, 

13,169,158,1834 
3400 DATA 141,4,218,169,151, 

141,5,203,76,97,26,201,2, 

209,8, 169,1814 
3410 DATA 170,141,5,218,76, 

97,26,169,144,141,5,208, 

169,231,141,21,1952 
3420 DATA 208,169,142,141, 

250,7,169,0,141,86,27,32, 

128,26, 160,0, li8t 
3430 DATA 162,0,202,218,253, 

136,208,248,76,65,13,169, 

59,141,15,212,2167 
3440 DATA 169,190,141,16,212, 

169,17,141,18,212,96,173, 

86,27,209,1,1876 
3450 DATA 94,206,107,27,240, 

1,96,173,90,27,141,107,27, 

169,2,141,1650 
3460 DATA 104,27,174,104,27, 

189,87,27,240,57,222,100, 

27,208,52,189,1838 
3470 DATA 97,27,41,254,188, 

103,27,153,4,212,138,10, 

171,32,29,27,1512 
3480 DATA 240,39,172,106,27, 

153,100,27,185,103,27,148, 

32,29,27,153, 158B 
3490 DATA 0,212,32,29,27,153, 

1,212,174,104,27,189,97, 

27,9,1,1296 
3500 DATA 153,4,212,206,106, 

27,16,186,96,32,108,27, 

189,91,27,149,1629 
3510 DATA 217,1B9,92,27,149, 



218,161,217,208,200,181, 

217,208,2,214,219,2718 
3520 DATA 214,217,149,255, 

172,106,27,153,100,27,135, 

103,27,169,169,0,2092 
3530 DATA 153,0,212,153,1, 

212,240,203,246,217,208,2, 

246,218,161,217,2689 
3540 DATA 96,169,0,141,84,27, 

142,2,133,10,163,56,185, 

91,27,233,1591 
3550 DATA 1,153,217,0,135,92, 

27,233,0,153,210,0,202,16, 

233,169,1899 
3560 DATA 1,141,100,27,141, 

101,27,141,102,27,141,107, 

27,141,86,27,1337 
3570 DATA 94,0,1,1,1,3,112, 

41,45,43,64,31,16,32,128, 

0,614 

3580 DATA 0,0,0,7,14,0,0,173, 
97,27,201,16,208,31,149, 
79,1022 

3590 DATA 141,5,212,169,58, 
141,12,212,169,161,141,13 
212,169,64,141,2020 

3600 DATA 97,27,149,15,141, 
244,244,244,244,244,244, 
244,244,244,244,244,3133 

4000 PRIHT-CCLEARINEH- 

j print 1 mmn 

L0AD'+CHRK34>fPETE LOAD 
3 1 +CHR*(34)+ 1 ,B 1 
4010 REM It CHANGE THE ,8 
IN ABOVE LINE TO ,1 IF 
YDU ARE USrNG TAPE ft 
4020 PRINT'EDOHMIRUN' 
4030 POKE 431, 13; POKE 632, 13 
sPOKE 633, 13: POKE 193,3 
iPRINT'CHDHE]" ■ 



2000 FDR L=0 TO 154; H=0 
: FOR D=0 TD 15: READ A 
iC)(«C)t+AiPOKE 7049*1116+0, 
A: NEXT 0 

2010 READ A; IF AOCI THEN PR 
INT-ERROR IN LINE 1 ; 
2040+tLli0!iSTOP 

2020 NEXT L 

204fl DATA 141,3,212,169,32, 
41,2,212,96,169,13,141,5, 

1 2,169,10,1727 
205* DATA 141,12,212,169,1, 

141,13,212,169,16,141,97, 

27,94,174,92,1713 
2060 DATA 3,189,216,29,133, 



122, 169,41, 133, 123 r 162, 27, 

32,237,27,174,1819 
2070 DATA 93,3,139,218,29, 

133,122,162,28,32,237,27, 

174,94,3,189,1733 
im DATA 218,29,133,122,162, 

29,32,237,27,174,95,3,189, 

218,29,133,1830 
2090 DATA 122,162,91,32,237, 

27,174,96,3,189,218,29, 

133,122,142,92,1889 
2100 DATA 32,237,27,96,160,0, 

177,122,157,0,32,232,232, 

232,200,192,2128 
2110 DATA 7,208,243,96,238, 

94,3,173,96,3,201,10,240, 

1,96,169,1380 



2120 DATA 0,141,96,3,239,95, 
3,173,95,3,201,10,240,1, 
96,169,1544 
2130 DATA 0,141,95,3,239,94, 
3,173,94,3,201,10,240,1, 
96,169,1541 
2140 DATA 0,141,94,3,238,93, 
3,173,93,3,201,10,240,1, 
96,169,1558 
2150 DATA 0,141,93,3,238,92, 
3,173,92,3,201,10,240,1, 
96,169,1555 
2140 DATA 0,141,92,3,96,169, 
1,141,25,208,141,18,208, 
141,26,208,1618 
2170 DATA 120,169,102,141,20, 
3,149,28,141,21,3,88,96, 
149,1,141,1412 
2130 DATA 25,208,141,18,208, 
76,49,234,169,1,141,33, 
208,149,0,141,1921 
2190 DATA 32,208,169,255,141, 
21,208,169,223,141,29,208, 
169,239,141,23,2376 
2200 DATA 208,169,60,141,1, 
208,141,3,209,169,40,141, 
0,209,169,88,1954 
2210 DATA 141,2,208,169,15, 
141,39,208,141,40,209,169, 
15,141,41,208,1886 
2220 DATA 141,42,208,169,60, 
141,28,209,169,10,141,37, 
209,169,9,141,1881 
2230 DATA 38,208,169,20,141, 
24,208,162,123,142,248,7, 
232,142,249,7,2125 
2241 DATA 169,31,32,210,255, 
169,147,32,210,255,169,27, 
141,17,209,169,2241 
2250 DATA 8,141,22,208,173, 
97,27,41,254,141,97,27, 
173,98,27,41,1575 
2240 DATA 254,141,98,27,173, 
99,27,41,254,141,99,27, 
149,0,141,6,1697 
2270 DATA 212,141,13,212,141, 
20,212,169,142,141,250,7, 
169,140,141,251,2341 
2280 DATA 7,169,180,141,4, 
208,141,4,288,149,115,141, 
5,208,169,157,2028 
2290 DATA 141,7,208,169,32, 
141,16,209,169,0,141,44, 
200,149,152,141,1944 
2300 DATA 253,7,169,20,141, 
10,208,149,140,141,11,208, 
169,0,141,8,1795 
2310 DATA 208,141,9,208,149, 
128,141,248,7,169,129,141, 



249,7, 



)2 37 2153 



2320 DATA 142,255,7,232,142, 

254,7,149,44,141,12,208, 

169,92,141,14,2029 
2330 DATA 208,149,140,141,13, 

208,141,15,208,169,11,141, 

45,208,141,46,2004 
2340 DATA 208,32,167,27,24, 

160,15,142,3,32,240,255, 

162,0,189,228,1904 
2350 DATA 29,32,210,255,232, 

224,23,208,245,24,160,5, 

162,22,32,240,2103 
2340 DATA 255,162,0,189,251, 

29,32,210,255,232,224,30, 

208,245,173,0,2495 
2370 DATA 220,41,16,208,249, 

149,0,141,17,208,141,14, 

208,149,211,141,2155 
2380 DATA 29,209,169,227,141, 

23,208,96,169,176,133,251, 

169,114,133,252,2498 
2390 DATA 162,0,160,0,189,25, 

30,145,251,232,200,192,17, 

208,245,145,2221 
2400 DATA 251,24,105,120,133, 

251,145,252,105,0,133,252, 

224,170,208,226,2419 
2410 DATA 96,32,39,44,53,40, 

47,74,81,88,95,80,79,74, 

65,82,1113 
2420 DATA 32,80,49,84,69,32, 

46,89,32,73,45,78,32,80, 

79,84,1044 
2430 DATA 84,83,80,82,69,83, 

83,32,70,73,82,69,32,84, 

79,32,1117 
2440 DATA 83,84,45,82,34,32, 

80,79,74,45,82,32,80,69, 

84,69,1146 
2450 DATA 0,0,0,0,0,0,0,0,0, 

255,144,147,0,0,0,0,548 

2460 DATA 0,0,0,0,0,0,0,0, 
148,149,150,0,151,152,153, 

0,903 

2470 DATA 0,0,0,0,0,0,0,0, 

154,155,156,157,158,159, 

160,161,1260 
2430 DATA 162,0,0,0,0,0,0,0, 

163,164,165,166,167,168, 

169,170,1494 
2490 DATA 171,172,173,0,0,0, 

0,0,0,174,175,176,177,178, 

179,180,1755 
2500 DATA 181,182,183,184,0, 

0,185,184, 187, 188, 189, 190, 

191,192,193,194,2425 
2510 DATA 195,194,197,198, 

199,200,201,202,203,204, 

205,206,207,203,209,210, 

3240 



2520 DATA 211,212,213,214, 
215,214,217,218,219,228 
221,222,223,224,225,226 
3196 

2530 DATA 227,228,229,230, 
231,232,233,234,0,0,0,8 
235,234,237,238,2790 

254? DATA 239,248,241,242, 
243, 244,245, 246,247,0,0,0, 
0,8,0,0,2197 

2550 DATA 248,249,250,251, 
252,253,254,0,0,0,0,0,0 
234,234,234,2459 

2560 DATA 234,234,234,234, 
234,234,234,234,234,214 
234,234,234,234,234,234 
3744 

2571 DATA 234,234,234,234, 
234,234,234,234,234,234 
234,234,234,234,234,234 
3744 

2580 DATA 234,234,234,234, 
234,234,234,234,234,234 
234,234,234,234,234,234 
3744 

2590 DATA 234,234,234,234, 
234,234,234,234,234,234 
234,234,234,234,234,234 
3744 

2600 DATA 234,234,234,234, 
234,234,234,234,234,234 
234,234,234,234,234,234 
3744 

2610 DATA 234,234,234,234, 
234,234,234,234,234,234 
234,234,234,234,234,234 
3744 

2620 DATA 234,234,234,234, 
234,234,234,234,234,234 
234,234,234,234,234,234 
3744 

2430 DATA 234,234,234,234, 

234,234,234,254,0,0,2,0,0, 

64,0,0,1958 
2640 DATA 2,140,59,2,41,52,1, 

120,46,1,120,46,2,41,52,2, 

724 

2650 DATA 140,50,2,41,52,1 
120,44,1,120,46,2,41,52,2, 
141,861 

2660 DATA 58,2,41,52,1,120 

46,1,120,46,2,41,52,2,140, 
SB, 7B2 

2670 DATA 2,41,52,4,120,46,2, 
140,58,2,41,52,1,120,46,1, 
728 

2680 DATA 120,46,2,41,52,2 
140,58,2,41,52, 1,120,46,1, 
120,844 

2690 DATA 44. 2. 41. 52.2. 140, 



59,2,41,52,1,120,46,1,120, 
46,770 

2700 DATA 2,41,52,2,140,58,2, 
41,52,1,120,46,8,0,255,0, 
915 

2710 DATA 255,0,255,0,255,0, 
255,0,174, 1,180,93,76,4'?, 
70,84,1757 

2720 DATA 49,0,184,1,132,56, 
234,234,234,234,234,234, 
234,234,234,234,2762 

2730 DATA 234,234,234,234, 
234,234,234,234,234,234, 
234,234,234,234,234,234, 
3744 

2740 DATA 234,234,234,234, 
234,234,234,234,234,234, 
234,234,234,234,234,234, 
3744 

2758 DATA 234,234,234,234, 
234,234,234,60,60,60,102, 
102,102,96,96,102,2418 

2740 DATA 60,94,102,6,96,102, 
102,102,102,60,60,60,0,0, 
0,0, 94B 

2770 DATA 0,0,60,60,60,102, 
102,102,102,102,102,102, 
102,102,102,182,1382 

2780 DATA 102,102,102,102,60, 
60,60,0,0,0,0,0,0,0,0,0, 
588 

2790 DATA 0,0,0,0,0,0,0,124, 
226,0,102,96,0,102,96,0, 
646 

2800 DATA 124,120,0,102,96,0, 
102,94 1 0 ! 102, 126,0,8,0,0, 
0,868 

2810 DATA 0,0,24,60,68,24, 

102,102,120,4,102,24,48, 

102,24,96,906 
2820 DATA 102,24,96,102,126, 

126,40,0,0,0,0,0,0,0,0,0, 

636 

2830 DATA 0,0,0,0,0,0,0,0,12, 
0,32,255,192,171,255,192, 
1109 

2940 DATA 171,255,240,171, 
255,240,170,255,252,170, 
255,252,42,255,252,42,3277 

2950 DATA 255,255,42,191,255, 
10,191,255,91,175,255,86, 
175,255,86,171,2747 

2860 DATA 255,86,171,255,1, 
171,255,1,170,255,1,106, 
252,0,90,176,2245 

2970 DATA 0,62,176,0,63,192, 
0,0,63,192,0,255,240,0, 
255,252,1750 

2880 DATA 3,258,252,3,250, 
?S7 IS 7^4 TV) 1 T\% 



5,171,252,5,2439 
2890 DATA 111,252,5,95,252,9, 

127,250,42,255,234,42,170, 

170,42,170,2226 
2900 DATA 169,2,170,160,0, 

255,192,0,63,0,0,63,0,2, 

170,0,1245 
2910 DATA 10,170,0,10,170,0, 

8,0,63,192,0,255,240,1, 

255,252,1417 
2928 DATA 3,250,252,3,250, 

252,15,250,252,15,250,252, 

15,250,252,15,2576 
2930 DATA 250,252,15,245,352, 

11,213,250,42,213,234,42, 

170,170,42, 171,2571 
2940 DATA 168,2,170,160,0, 

255,192,0,255,192,8,243, 

240,10,240,232,2367 
2950 DATA 10,162,168,2,162, 

160,0,0,63,192,0,255,240, 

0,255,252,1921 
2960 DATA 3,250,252,3,250, 

252,15,250,1B8, 15,254,188, 

15,254,172,15,2376 
2970 DATA 255,148,15,255,84, 

11,253,86,42,253,90,42, 

170,170,42,170,2096 
2980 DATA 168,2,170,160,0, 

255,192,35,255,240,43,243, 

248,43,192,232,2478 
2990 DATA 42,194,168,10,2, 

160,0,0,48,0,3,255,8,3, 

255,234,1382 
3000 DATA 15,255,234,15,255, 

234,63,255,170,63,255,170, 

63,255,168,255,2725 
3010 DATA 255,168,255,254, 

168,255,254,160,255,258, 

165,255,250,149,255,234, 

3582 

3020 DATA 149,255,234,149, 
255,234,64,255,170,44,43, 
169,64,14,165,0,2304 

3030 DATA 14,188,0,3,252,0,0, 
3,252,0,15,255,0,63,255,0, 
1300 

3040 DATA 63,175,192,63,175, 

192,43,171,240,63,235,208, 

63,234,80,63,2280 
3050 DATA 249,80,63,245,90, 

175,253,96,171,255,168, 

170,170,168,42,170,2555 
3060 DATA 168,10,170,128,3, 

255,0,0,252,0,0,252,8,0, 

170,128,1536 
3070 DATA 0,170,168,0,170, 

160,0,3,252,0,15,255,0,63, 

255,0,1503 
3080 DATA 63,175,192,63,175, 



192,63,175,248,43,175,240, 

63,175,240,63,2357 
3090 DATA 175,240,63,95,240, 

175,87,224,171,87,168,170, 

170,168,42,170,2445 
3100 DATA 168,10,170,128,3, 

255,0,3,255,8,15,207,32, 

43,15,160,1464 
3110 DATA 42,139,160,10,138, 

128,0,3,252,0,15,255,0,43, 

255,0,1459 
3120 DATA 63,175,192,63,175, 

192,62,175,240,62,191,240, 

58,191,240,22,2341 
3130 DATA 255,240,21,255,240, 

149,127,224,165,127,168, 

170,170,149,42,170,2691 
3140 DATA 168,10,170,129,3, 

255,0,15,255,200,47,207, 

232,43,3,232,1968 
3150 DATA 42, 131,168, 10, 12B, 

160,0,0,40,0,2,190,128,10, 

255,168,1424 
3140 DATA 11,255,224,43,255, 

232,47,255,248,175,255, 

250,175,255,258,175,3105 
3170 DATA 255,250,175,255, 

250,175,255,258,175,255, 

250,175,255,250,175,255, 

3655 

3180 DATA 250,175,255,250,43, 
255,232,43,255,232,42,255, 
168,10,190,160,2815 

3198 DATA 2,170,128,8,170,0, 
0,0,255,0,43,255,232,43, 
255,232,1785 

3200 DATA 175,255,258,175, 
255,250,175,255,245,175, 
255,245,95,255,245,95,3480 

3210 DATA 255,248,95,255,248, 
47,255,248,43,255,232,42, 
170,149,42,170,2757 

3220 DATA 169,10,170,160,3, 
195,192,3,195,192,10,131, 
192,10,131,192,1954 

3230 DATA 0,2,160,0,2,160,0, 
0,255,0,43,255,232,43,255, 
232,1639 

3240 DATA 175,255,250,175, 
255,250,175,255,250,175, 
255,250,95,255,245,95,3410 

3250 DATA 255,245,93,255,215, 
47,255,249,43,255,232,42, 
170,168,42,170,2747 

3268 DATA 168,10,170,160,3, 
195,192,3,195,192,3,195, 
192,3,195,192,2068 

3278 DATA 10,130,160,10,130, 
160,0,0,255,0,43,255,232, 
13 255 232 1915 



C64 
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oooooo 




3280 DATA 175,255, 25*, 175, 
255,258,93,255,251,95,255, 
250,95,255,245,15,3170 

3298 DATA 155,245,15,255,245, 
47,255,248,43,255,232,42, 
I^j, 166,42, 170,2^37 

3300 DATA 168, 10,170,160,3, 
195,192,3,195,192,3,194, 
160, 3, 194, 168,2002 

3318 DATA 10,128,0,10,128,8, 
0,0,170,0,2,170,123,10, 
190,160,1106 

3320 DATA 10,255,140,43,255, 
232,43,255,232,175,215, 
250,175,85,250,173,2808 

3331 DMA 215,122,173,215, 
122,173,125,122,173,215, 
122,173,215,122,173,215, 

3344 DATA 122,165,125,90,41, 

215,104,41,125,114,42,95, 

163, 10, 17*, 161, 1767 
3351 DATA 2,170,128,0,170,0, 

253,0,0,0,0,0,1,9,9,0,723 
3361 DATA 0,0,0,0,*, 0,0, 0,0, 

0,0,0,0,0,0,0,0 
3370 DATA 0,0,0,0,0,0,0,0,0, 

0,0,0,0,0,0,0,0 

33B0 DATA fl, 63, 255, 255, 63, 

255,255,63,255,255,131,0, 

12,163,0,12,2037 
3390 DATA 42,170,170,10,170, 

170,0,168,170,168,138,125, 

10,160,2,2,1678 
3400 DATA 128,32,34,130,0,2, 

123,2,34,128,32,2,136,0, 

34,128,950 
3410 DATA 8,2,131,0,138,128, 

0,8,130,34, 10,160,0,34,42, 

170,994 

342* DATA 170,63,255,255,63, 

255,255,63,255,255,131,0, 

12,163,0,12,2207 
3430 DATA 42,170,170,10,170, 

170,0,0,0,0,0,0,0,0,8,0, 

732 

3440 DATA 0,0,0,0,0,0,0,0,0, 

0,0,*, 0,0,0,0,0 
3450 DATA 0,0,0,0,0,0,0,0,0, 

8,0,0,0,0,0,0,0 
3460 DATA 0,255,255,252,255, 

255,252,255,255,252,48,0, 

194,48,0,202,2778 
3470 DATA 170,170,168,170, 

170,160,0,42,170,42,160,2, 

162,128,128,10,1852 
3488 DATA 136,8,2,128,0,130, 

136,128,2,129,8,2,136,0, 

34,128,1106 
3498 DATA 7 ] k7 ff 1 1ff 



0,2,160,136,130,136,0,10, 

170,170,1272 
3500 DATA 160,255,255,252, 

255,355,252,255,253,252, 

48,0,194,43,0,202,2946 
3510 DATA 170,170,169,170, 

170,160,0,128,0,2,128,0,2, 

143,255, 242, 1908 
3520 DATA 191,255,254,143, 

255,254,143,255,242,143, 

255,242,143,255,242,143, 

3415 

3530 DATA 255,242,143,255, 
242,143,255,242,143,255, 
242,143,255,242,143,255, 
3455 

3540 DATA 242,143,255,242, 
143,255,242,143,255,242, 
143,255,242,191,255,254, 
3502 

3550 D&TA 191,255,254,143, 
255,242,0,128,0,2,142,170, 
162,138,0,34,2116 

3560 DATA 186,32,46,136,2,46, 
136,128,34,136,0,34,136, 




2000 FOR L=0 TD 156: CM 
s FOR D=0 TD 15: READ A 
: CI=CI+A:PDKE 9549+LU6+D, 
A: NEXT D 



2*10 READ A: IF AOCI THEN PR 
INT "ERROR IN LINE"; 
2040+ (LI 10) i STOP 

2020 NEXT L 

2040 DATA 255,242,143,255, 
242,143,255,242,143,255, 
242,143,255,242,143,255, 
3455 

2050 DATA 242,143,255,242, 
143,255,242,143,255,242, 
143,255,242,143,255,242, 
3442 
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32,162,134,1382 
3578 DATA 9,34,138,128,34, 
142,0,34,138,0,162,139,34, 
34,136,0,1160 
3580 DATA 34,136,34,34,139,0, 
34,136,32,162,136,0,34, 
184,136,46,1276 
3590 DATA 184,0,174,139,170, 
179,0,143,255,242,191,255, 
254,191,255,254,2884 
3600 DATA 143,255,242,143, 
255,244,244,244,244,244, 
244,244,244,244,244,244, 
3722 

4000 PR I HI ■ t CL EAR ] MEN 1 
:PRINT'CD0NN2] 
LQAD , +CHRS(34)f"PETE LOAD 

4010 REN It CHANGE THE ,8 
IN ABOVE LINE TO ,1 IF 
YOU ARE USING TAPE tt 
4020 PRINT"CD0^N41RUN" 
4030 POKE 631, 13; POKE 632,13 
i POKE 633, 13s POKE 198,3 
i PR INT 1 [HONE] - m 



2860 DATA 143,255,242,143, 

255,254,191,255,254,143, 

255,242,123,0,2,120,2390 
2070 DATA *, 2,0, 139, 170, 178, 

184,0,174,134,136,46,136, 

0,34,136,1513 
2080 DATA 32,162,138,0,34, 

136,34,34,136,8,34,138,34, 

34,138,0,1084 
2*90 DATA 162,142,0,34,138, 

123,34,136,8,34,136,32, 

162,136,0,34,1316 
2100 DATA 136,128,34,136,2, 

46,186,32,46,138,0,34,142, 

170,142,128,1520 
2110 DATA 0,2,234,0,0,0,0,40. 

0,0, 170,0,2, 170, 128,2,743 f 



2120 DATA 40,128,2,40,128,10, 

150,160,42,85,168,42,85, 

168,170,20,1433 
2130 DATA 170,168,20,42,168, 

20,42,168,0,42,168,0,42, 

168,0,42,1260 
2140 DATA 138,0,142,10,0,162, 

2,130,162,21,106,128,21, 

65,84,0,1191 
2150 DATA 1,84,0,0,0,0,0,40, 

0,0,170,0,2,170,128,2,597 
2160 DATA 40,128,2,40,128,10, 

150,160,42,95,168,42,35, 

168,170,20,1438 
2170 DATA 170,168,20,42,169, 

20,42,168,0,42,163,0,42, 

168,0,42,1268 
2190 DATA 138,0,162,133,0, 

162,2,130,160,2,170,128, 

21,65,94,21,1383 
2190 DATA 65,84,0,0,0,0,0,40, 

0,0,170,0,2,170,123,2,661 
2280 DATA 40,128,2,40,128,10, 

150,160,42,85,168,42,85, 

168,170,20,1439 
2210 DATA 170,168,20,42,168, 

20,42,168,0,42,168,0,42, 

168,0,42,1260 
2220 DATA 138,0,162,138,0, 

160,138,130,128,2,169,84, 

21,65,84,21,1440 
2230 DATA 64,0,0,0,0,0,0,40, 

0,0,170,0,2,170,128,2,576 
2240 DATA 170,128,2,170,128, 

10,170,160,42,170,168,42, 

170,168,171,170,2038 
2250 DATA 170,170,170,170, 

170,170,170,170,170,170, 

170,170,170, 170, 17*, 170, 

2720 

2260 DATA 138,170,162,10,170, 
162,2,170,162,21,106,129, 
21,65,84,0,1571 

2270 DATA 1,94,0,0,0,0,0,40, 
0,0,170,0,2,178,128,2,597 

2280 DATA 170,128,2,170,128, 
10,170,160,42,170,168,42, 
170,168,170,170,2038 

2290 DATA 170,170,170,170, 
170,170,170,170,170,170, 
170,170,170,170,170,170, 
2720 

2300 DATA 138,170,162,138, 
170,162,10,170,160,2,170, 
129,21,65,34,21,1771 

231* DATA 65, 94, 0,0,0,0, 0,40, 
0,0,170,0,2,170,128,2,661 

2320 DATA 170,128,2,170,128, 
10,170,160,42,170,169,42, 
170 160 170 170 2038 



2330 DATA 170,170,170,170, 
170,170, 170, 171,171, 170, 
171,170,170,170,170,170, 
2720 

2340 DATA 138,170,162,138, 
170,160,138,170,128,2,169, 
04,21,65,84,21,1820 

2350 DATA 44,0,0,0,0,0,0,42, 
0,0,170,121,0,170,128,2, 
704 

2360 DATA 42,160,2,42,160,6, 

170,148,21,170,160,65,170, 

168,85,170,1787 
2370 DATA 168,2,10,166,8,2, 

168,8,10,168,8,10,168,8, 

11,168,1004 
2380 DATA 8,10,168,2,10,168, 

5,138,168,5, 106,148,1, 81, 

84,0,1102 
2390 DATA 81,81,0,0,0,0,0,42, 

0,0,170,128,0,170,128,2, 

801 

2400 DATA 42, 160,2, 42, 160, 6, 

170,168,21,170,168,85,170, 

168,85,170,1787 
2410 DATA 168,2,10,168,8,2, 

168,8,10,168,8,11,168,8, 

10,168,1084 
2420 DATA 8,10,168,2,10,168, 

0,138,168,1,106,144,1,85, 

80,0,1089 
2430 DATA 81,80,0,0,0,0,0,42, 

0,0,170,128,0,170,128,2, 

801 

2440 DATA 42,160,2,42,160,6, 

170,168,21,170,168,95,170, 

148,85,170,1787 
2450 DATA 168,2,10,146,8,2, 

168,8,10,168,8,10,168,8, 

10,168,1084 
2460 DATA 8,10,168,2,10,168, 

0,138,166,0,42,160,1,85, 

64,1,1025 
2470 DATA 85,64,0,0,0,0,0,0, 

0,0,0,255,255,255,255,255, 

1424 

2480 DATA 255,255,255,255, 

192,192,192,192,48,48,192, 

243,12,0,0,0,2331 
2490 DATA 0,0,0,172,63,12,12, 

48,48, 12,48,63, 192, m, 

204,192,1278 
2500 DATA 192,240,192,243,12, 

0,0,12,243,0,0,255,0,0,48, 

0,1437 

2510 DATA 0,60,0,195,63,3, 
243,3,51,3,3,192,192,48, 
48,48,1152 

2520 DATA 192,204,192,3,48,0, 
| 0,12,192,3,0,3, 5 1,3,204, 



204,1311 
2530 DATA 12,12,51,192,204, 

204,204,192,48,195,192,3, 

3,51,51,51,1665 
2540 DATA 3,15,3,255,192,204, 

192,192,195,48,15,195,60, 

0,195,0,1764 
2550 DATA 48,0,255,243,12,48, 

0,12,0,240,15,252,3,51,3, 

3,1185 

2560 DATA 51,3,252,3,3,12,12, 
48,48,0,0,0,0,0,3,12,447 

2570 DATA 48,192,192,0,15, 
240,0,0,0,0,0,255,0,0,0,0, 
942 

2580 DATA 0,0,0,0,240,15,1,0, 
0,0,0,0,0,0,192,48,495 

2590 DATA 12,3,3,192,192,48, 
48,12,12,0,0,234,234,234, 
234,234,1492 

2600 DATA 234,234,234,234, 
234,234,234,234,234,234, 
234,234,234,234,234,234, 
3744 

2610 DATA 234,234,234,234, 
234,234,234,234,231,234, 
234,234,234,234,234,234, 
3744 

2620 DATA 234,234,234,21,21, 

21,21,21,21,21,21,81,84, 

84,84,84,1290 
2630 DATA 84,84,84,255,192, 

207,204,207,204,192,255, 

255,0,195,204,207,2829 
2640 DATA 12,0,255,255,0,15, 

204,204,207,0,255,255,3,3, 

195,195,2158 
2650 DATA 3,3,255,60,102,102, 

102,182,102,60,24,24,120, 

24,24,24,1131 
2660 DATA 126,60,102,6,60,96, 

96,126,60,102,6,28,6,102, 

60,12,1048 
2670 DATA 28,60,108,126-, 12, 

12,124,94,124,6,6,102,60, 

60,102,96,1124 
2680 DATA 124,102,102,60,126, 

6,6,12,24,24,24,40,102, 

102,60,102,1036 
2690 DATA 102,60,60,102,102, 

62,6,102,60,234,234,234, 

234,234,234,234,2294 
2700 DATA 234,234,234,2,238, 

21,2,137,19,2,104,17,2, 

104,17,2,1369 
2710 DATA 70,29,2,20,24,2,60, 

23,2,60,23,2,238,21,2,137, 

717 

2720 DATA 19,2,104,17,2,104, 
17,2,137,19,2,238,21,4, 



238,21,947 
2730 DATA 2,238,21,2,137,19, 
2,104,17,2,104,17,2,70,29, 
2,768 

2740 DATA 20,26,2,60,23,2,60, 
23,2,104,17,2,137,19,2, 

23E,737 

2750 DATA 21,2,238,21,2,137, 

19,6,104,17,2,238,21,2, 

137,19,986 
2740 DATA 2,104,17,2,104,17, 

2,70,29,2,20,26,2,60,23,2, 

482 

2770 DATA 60,23,2,238,21,2, 

137,19,2,104,17,2,104,17, 

2,137,887 
2780 DATA 19,2,238,21,4,238, 

21,2,238,21,2,137,19,2, 

104,17,1085 
2790 DATA 2,104,17,2,70,29,2, 

20,24,2,60,23,2,60,23,2, 

444 

2800 DATA 104,17,2,137,19,2, 

238,21,2,238,21,2,137,19, 

6,104,1069 
2BL0 DATA 17,2,238,21,2,60, 

23,2,20,26,2,20,26,2,70, 

29,560 

2820 DATA 2,220,32,2,208,34, 
2,208,34,2,238,21,2,60,23, 
2,1090 

2830 DATA 20,26,2,20,26,2, 
137,19,2,238,21,4,238,21, 
2,238,1016 

2840 DATA 21,2,60,23,2,20,26, 

2,20,26,2,70,29,2,220,32, 
557 

2850 DATA 2,208,34,2,209,34, 

2,104,17,2,110,16,2,163, 

14,2,920 
2860 DATA 143,14,2,137,19,2, 

138,19,4,104,17,2,238,21, 

2,60,942 
2B70 DATA 23,2,20,26,2,20,26, 

2,78,29,2,220,32,2,208,34, 

718 

2B80 DATA 2,208,34,2,238,21, 
2,60,23,2,20,26,2,20,26,2, 
688 

2890 DATA 137,19,2,238,21,4, 
238,21,2,238,21,2,60,23,2, 
20,1048 

2900 DATA 26,2,20,26,2,70,29, 
2,220,32,2,206,34,2,208, 
34,917 

2910 DATA 2,104,17,2,110,16, 
2,163,14,2,163,14,2,137, 
19,2,769 

2920 DATA 138,19,4,104,17,2, 
238.21,2.137.19,2404,17. 



2,104,930 
2930 DATA 17,2,70,29,2,20,26, 
2,60,23,2,60,23,2,238,21, 
597 

2940 DATA 2,137,19,2,104,17, 

2,104,17,2,137,19,2,238, 

21,4,827 
2950 DATA 238,21,2,238,21,2, 

137,19,2,104,17,2,104,17, 

2,70,996 
2960 DATA 29,2,20,26,2,60,23, 

2,60,23,2,104,17,2,137,19, 

528 

2970 DATA 2,238,21,2,238,21, 
2,137,19,6,104,17,64,0,0, 
0,871 

2980 DATA 4,238,21,2,104,17, 
2,104,17,4,70,29,2,60,23, 
2,699 

2990 DATA 60,23,4,238,21,2, 

104,17,2,104,17,4,137,19, 

4,238,994 
3000 DATA 21,4,238,21,2,104, 

17,2,104,17,4,70,29,2,60, 

23,710 

3010 DATA 2,60,23,4,104,17,2, 
238,21,4,238,21,6,104,17, 
4,865 

3020 DATA 238,21,2,104,17,2, 
1*4,17, 4,70,29,2,40,23, 2, 
60,755 

3030 DATA 23,4,238,21,2,104, 

17,2,104,17,4,137,19,4, 

238,21,955 
3040 DATA 4,238,21,2,104,17, 

2,104,17,4,70,29,2,60,23, 

2,699 

3050 DATA 60,23,4,104,17,2, 

238,21,4,238,21,6,104,17, 

4,238,1101 
3060 DATA 21,2,104,17,2,184, 

17,4,70,29,2,60,23,2,60, 

23,540 

3070 DATA 4,238,21,2,104,17, 

2,104,17,4,137,19,4,238, 

21,4,936 
3080 DATA 238,21,2,104,17,2, 

104,17,4,70,29,2,60,23,2, 

60,755 

3890 DATA 23,4,104,17,2,238, 

21,4,238,21,2,138,19,4, 

104,17,956 
3100 DATA 4,238,21,2,104,17, 

2,104,17,4,70,29,2,60,23, 

2,699 

3110 DATA 60,23,4,230,21,2, 
104,17,2,104,17,4,137,19, 
4,238,994 

3120 DATA 21,4,238,21,2,104, 
17,2,104 1 17 l 4,70 f 29,2,40, 
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23,7fB 

3130 DATA 2,48,23,4,104,17,2, 
238,21,4,238,21,2,138,19, 
4,897 

3140 DATA 104,17,4,233,21,2, 
1*4,17, 2, 1*4,17, 4, 71, 29, 2, 
60,795 

3150 DATA 23,2,60,23,4,233, 

21,2,184,17,2,1*4,17,4, 

137,19,777 
5140 DATA 4,238,21,4,238,22, 

2,114,17,2,104,17,4,71,29, 

2,877 

3170 DATA 60,23,2,40,23,4, 

104,17,2,238,21,4,230,21, 

4,114,927 
3160 DATA 17,44,*, 1,0,254,0, 

1,2,8,0,44,8,0,2, 140,543 
3198 DATA 59,2,41,52,1,128, 

44,1,121,44,2,41,52,2,140, 

58,782 

3200 DATA 2,41,52,0,0,0,0,0, 
0,255,0,0,0,0,0,0,350 

3210 DATA 0,192,43,0,0,0,3, 
15,61,60,204,15,48,192,0, 
8,852 

3228 DATA 192,60,3,3,3,12,12, 
12,12,12,252,48,48,12,12, 
12, 70S 

3230 DATA 12,12,15,240,12,3, 

0,1,3,40,192,8,0,8,192, 

240,991 
3240 DATA 12,12,3,0,3,3,15, 

12,40,40,204,240,48,192, 

192,192,1248 
3250 DATA 48,15,0,0,0,3,3,3, 

3,3,255,207,192,0,0,0,732 



3260 DATA 0,0,0,255,12,12,12, 
12,12,12,12,240,0,0,0,0, 
579 

3270 DATA 0,0,0,192,192,48, 
48 ,48,48,48,63,3,3,3,3,3, 
702 

3280 DATA 12,240,192,0,192, 

192,240,48,60,40,51,0,0,3, 

3,12,1305 
3290 DATA 12,12,48,204,240, 

240,48,15,0,0,0,0,0,3,3,3, 

823 

3300 DATA 243,207,192,195, 

192,0,0,0,0,0,252,240,15, 

12,12,12,1572 
3310 DATA 12,12,12,12,255,0, 

0,0,0,0,0,15,252,12,12,12, 

604 

3320 DATA 12,12,12,192,0,0,0, 
0,0,0,63,192,192,48,48,48, 
819 

3330 DATA 63,248,0,51,15,15, 

12,240,192,192,192,8,0, 

192,192,48,1444 
3340 DATA 48,48,12,43,60,51, 

192,192,192,192,192,0,0,0, 

192,48,1467 
3350 DATA 43,48,48,192,192, 

192,192,192,192,240,15,3, 

3,3,3,3,1581 
3360 DATA 3,3,3,252,15,0,0,0, 

0,0,0,0,255,12,12, 12,567 
3370 DATA 12,12,12,15,240,0, 

0,0,0,0,0,240,48,48,48,48, 

723 

3380 DATA 48,48,48,0,0,0,0,0, 
0,15,240,192,192,192,195, 



207, 1377 
3390 DATA 243,3,3,12,40,204, 
3,3,3,3,3,15,12,43,48,192, 
970 

3400 DATA 192,192,192,255,0, 
255,48,192,192,192,192, 
255,192,255,3,12,2619 

3410 DATA 12,12,12,255,3,255, 
3,3,3,3,3,192,192,48,15,3, 
1014 

3420 DATA 3,3,3,48,48,48,48, 

240,48,15,0,3,3,3,3,3,519 
3430 DATA 3,3,243,255,3,0,0, 

0,0,8,0,0,248,15,15,15,792 
3440 DATA 15,15,15,12,12,255, 

255,255,255,255,255,0,15, 

252,252,252,2370 
3450 DATA 252,252,252,43,192, 

0,0,0,0,8,0,48,48,48,48, 

48,1251 

3460 DATA 48,48,63,3,3,3,3,3, 
12,240,192,3,3,12,240,48, 
924 

3470 DATA 48,48,48,192,192, 

192,192,192,192,192,192,0, 

3,3,3,3,1692 
3480 DATA 3,3,3,255,0,0,0,0, 

0,0,255,255,3,3,3,3,784 
3490 DATA 3,3,255,255,0,0,0, 

0,0,0,255,255,12,12,12,12, 

1074 

3500 DATA 12,12,252,3,195, 
195,243,287,195,192,192,0, 
8,8,0,0,1698 

3510 DATA 0,192,48,207,192, 
192,192,192,192,192,192,0, 
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3520 DATA 3,3,3,15,15,255,15, 
0,8,0,0,255,255,255,255, 
12,1341 

3530 DATA 12,12,12,252,252, 

255,240,0,0,0,0,0,63,240, 

49,49,1434 
3540 DATA 48,48,48,240,0,0,0, 

(,0,0,0,192,192,192,192, 

192,1344 
3550 DATA 192,195,207,48,51, 

51,60,48,192,0,0,248,192, 

192,192,192,2052 

3560 DATA 192,192,192,3,3,3, 
3,3,3,3,3,0,0,0,0,0,600 

3570 DATA 0,0,255,192,192, 
192,192,192,192,192,255, 
12,12,12,12,12,1914 

3561 DATA 12,12,255,15,12,12, 
12,12,12,12,252,192,192, 
192,48,15,1257 

3590 DATA 3,3,3,43,48,48,48, 
48,240,48,15,192,240,15,3, 
3,1028 

3600 DATA 3,3,3,3,3,244,244, 

244,244,244,244,244,244, 

244,244,244,2499 
4800 PRINT'ICLEARINEW* 

: PRINT" [D0HN2] 

L0AD , +CHRI(34} + , PETE. LDAD 

5"+CHfttC34)t",8* 
4010 REN tt CHAN6E THE ,8 
IN ABOVE LIKE TO ,1 IF 
YOU ARE USING TAPE U 
4020 PRINT" CD0MH4] RUN* 
4030 POKE 631, 13i POKE 632,13 

iPOKE 633, 13: POKE 198,3 

: PR I NT' [H QUE 3" 



PRQGRAH: PETt LOAD 5 



2800 FDR L*8 TD 15:CX=0 
i FDR D=8 TO 15; READ A 
: CJC=CI+ft:PQKE 12049+LII4+ 
DjAiNElT D 

2010 READ A: IF AOCJ THEN PR 
INT "ERROR IK LINE"; 
2040+(L110):5TOP 

2020 NEXT L 

2040 DATA 3,3,255,3,8,0,0,0, 
0,0,0,240,15,12,12,12,555 

2050 DATA 12,12,12,12,255,0, 
0,0,0,0,0,15,252,12,12,48, 
442 

2060 DATA 48,48,63,192,0,0,0, 

0,15,240,48,48,48,48,48, 

243,18B9 
2870 DATA 3,3,3,3,3,12,248,0, 

3,3,12,240,240,49,48,240, 

1101 

2090 DATA 48,48,48,48,48,48, 



48,3, 0,0,0, 0,0, 0,0j3,342 
2090 DATA 195,195,51,15,0,0, 
0,0,0,0,0,0,192,48,15,243, 
954 

2108 DATA 207,192,192,192, 

192,192,192,8,0,252,3,3,3, 

3,3,12,1438 
2110 DATA 12,12,252,15,0,0,0, 

0,0,0,0,255,12,12,12,12, 

594 

2120 DATA 12,12,15,240,0,0,0, 
0,0,43,240,49,48,48,49,43, 
937 

2130 DATA 240,0,0,0,0,0,0, 

192,192,192,192,192,195, 

204,240,48,1887 
2140 DATA 51,51,60,240,8,8,0, 

192,0,0,0,0,0,0,0,240,834 
2150 DATA 15,0,0,0,0,0,0,3,3, 

255,3,0,0,0,0,8,279 
2160 DATA 0,0,240,15,0,0,0, 

12,12,12,12,255,0,0,0,0, 



558 



2170 DATA 0,0,15,240,0,0,0, 
48,48,63,192,0,0,0,0,15, 

621 

2180 DATA 240,0,0,0,0,0,0,0, 
0,8, 1,8,0,3,255, 68, 544 

2198 DATA 255,255,255,8,0,0, 
0,40,0,0,171,0,2,170,129, 



2,1277 

4000 POKE 43,1: POKE 44,8 
£ POKE 45,5: POKE 46,48 
4010 SAVE'POLAfi PETE", 8, I 
4029 RE- It CHANGE THE ,8,1 
IN ABOVE LINE TO ,1,1 
IF YOU ARE USING TAPE 



lit 



01 
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LASER 



Stuart Cooke has been 



experimenting with two Laser 



programs from Ocean* 



HAVE YOU EVER WANTED TO WRITE 
you r own arcade game but have been put 
off because of the complexities of 
machine code? Haveyou ever wished that 
the Basic on the C64 allowed you to do 
more with graphics? Or, have you always 
found it easy to write programs in Basic 
but always found them too slow? Well 
two new packages from Ocean IQ will 
solve all of your problems. 

The first of the two programs is Laser 
Basic. Essentially this is just a Basic 
extension like many others available on 
the market. What makes it different from 
all of the rest is its plethora of graphics 
commands. In fact, nearly all of the 
commands in this Basic are geared to 
making the task of graphics programmi ng 
easier. Not all of the commands are 
graphics based, though. There are also 
many advanced programming commands 
such as procedures and quite a formid- 
able array of 'toolkit' commands such as 
Renumber. 

Thesecond package is theonethat will 
be of great interest to anyone who has 
found their latest version of Space Invaders 
just a little slow when written in Basic. The 
program is the Laser Compiler. The com- 
piler will change standard Commodore 
Basic and Laser Basic programs i nto mach- 
ine code. Obviously this will give any pro- 
programs a significant increase in speed. 

Laser Basic is an extension of an earlier 
program called Basic Lightning which has 
been around for some time. If you alread 
have Basic Lightning then you will be 
pleased to know that the Laser Compiler 
will compile most programs written with 
this package. But more of this later. 

Laser Basic 

As previously mentioned, this is essen- 
tially a Basic Extension, but a very 
powerful one. One very nice feature is the 
inclusion of a tape turbo save option. Th is 
will undoubtedly please cassette users 
who are totally fed up with theslownessof 
the Commodore cassette deck. In use the 
turbo proved itself to be both very fast 




"'"^ft" 




HOW 




and very reliable. Even trying turbo saved 
programs on different cassette recorders 
presented no problems. 

Documentation 

A large manual is supplied with the 
package which deals with ail of the 
commands in detail. Some sections are a 
little difficult to understand at first 
reading but numerous example programs 
do make things a little dearer. Beginners 
would be well advised to try all examples 
and make sure that they understand how 
they work before they attempt to write 
any fantastic games program. 

In Use 

Programming with laser Basic is a joy, 
though, when you get on to using 
graphics, it is a little complicated to 
understand at first. The numerous 
structured programming commands 
make t he Basic great to use. If you've ever 



written programs in Pascal or other struc- 
tured languages you'll know just how 
valuable are Procedures, Labels and other 
programming aids. For those who have 
never come across these commands let's 
take a closer look. 

With a normal COSUB statement in 
Basic you would use something like 
GOSUB 1000. Line 1000 could, for 
example, be the subroutine that updates 
the score. Unfortunately the line number 
1000 doesn't tell you this. With Laser 
Basic you could re-write the GOSUB 
command like this: 

GOSUB update 

and line 1000 would become 

1000 LABEL update: 

This makes it much easiertofollowthe 
flow of a program. 

Procedures take the use of labels 
much further. With a procedure it is 
possible to have a program that uses a 
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vaiable, for example VAR1. The proce- 
dure, which is similar to a subroutine 
can also use the same variable name 
however, the two can be treated as com- 
pletely separate items the value of one not 
affecting the value of the other. 

Other structured programming 
commands are REPEAT... UNTIL loops, 
IF. .THEN. .ELSE and WHILE. .WEND, AN of 
which lead to much clearer and easier 
programming. 

Identity Crisis 

Before we take a look at the graphics 
commands it is worth taking a close look 
at what is a new idea. 

No doubt vou will have -already heard 
about the sprites that are available on the 
C64. In Laser Basic these have been 
renamed Hardware Sprites and a new 
Type of sprite has been added, the Soft- 
ware Sprite. A software sprite, unlike a 
hardware sprite, is of dimensions that are 
set by the user up to a maximum of 255 
character blocks by 255 character blocks. 

All graphic commands are operated 
on Sprites, this may make you wonder 
how you get things on to the screen unlil 
you realise tht the hi-res screen is treated 
as sprite number zero with fixed 
dimensions and that the text screen is 
treated as sprite number 255 also with 
fixed dimensions. 

A sprite designer package is included 
with Laser Basic, using this it is easy To 
design extremely large sprites. 



Nu merous commands are available for 
sprite drawing. It is possible to plot points 
on a sprite, draw boxes, draw lines. With 
the POLY command it is also possible to 
draw polygons and circles. Blank areas, 
such as those created with the BOX and 
POLY commands can be coloured in with 
the FILL command. 

Moving it Around 

Sprites can be manipulated in numerous 
ways. The PLJTBLK command is used to 
place a sprite at a specific place on the hi- 
res screen. It is possible to OR, AND or 
XOR the sprite with whatever is already 
on the screen. With careful use of these 
commands the software sprites can be 
made io appear in front of, or behind, 
other items on the screen. 

Commands also exist for copying 
sprites, or parts of sprites, into other 
sprites. 

Commands exist for moving sprites 
around the screen and scrollingthem. It is 
even possible to make a sprite follow the 
path of another. 

Scrolling backdrops are now ext- 
remely easy. All that you need to do is to 
define your background as a sprite, don't 
forget that this can be upto 255 characters 
wide, Place this on the screen - only part 
of it will show - and then scroll the 
background sprite with one of the 
numerous scroll commands. It's as simple 
as that. It was never as easy as this to write 
Defender before. 



And There's More 

Obviously it is only possible to give a taste 
of some of the commands available, There 
are many that I haven't even mentioned. 
If you are interested in playing around 
with graphics or just interested in 
programming then you should rush out 
and buy a copy of the program. You 
should be creating works of art in no time 
at all. 

Speeding Things Up 

It's no good writing the world's best inter- 
galactic space flight simulator only to find 
out that Brian the snail can beat your 
space ship at full speed. Nonetheless, that 
is exactly what will happen if you write 
your programs in Basic. The only way lo 
write fast programs is to use machine code 
like all of the top programmers. Or is it? 

The Laser Basic compiler will take 
programs that have been written using 
Laser Basic (and normal Basic) and turn 
them into machine code, Obviously the 
program generated by a compiler is not as 
compact or as fast as one written entirely 
in machine code bur il will lie many times 
faster than normal. 

As can be seen, the Laser Basic 
compiler provides Commodore 64 
owners with an excellent programming 
aid. No longer do you have to study 
machine code. Simply write your program 
in Basic and off you go. 

Ocean IQ will also let you freely 
market any program that is written using 
Laser Basic and Laser Compiler as long as 
you put a mention on the packaging that 
these programs were used. Perhaps these 
packages could bring out the budding 
Minters and Crowthers in many people. 

The Manual supplied with Laser Com- 
pi ler is very small, on ly seven pages, but all 
necessary information is there. It explains 
how to compile a program including how 
to save it. A turbo option is included for 
tape users. Disk users shouldn't feel left 
out either as they are provided with a 
routine that will make programs auto 
start. 

For the many users of Basic Lightening, 
a small section is included that explains 
the differences in someof the commands, 
though most of these are only minor. For 
example the CUTOFF command now uses 
numbers in the range zero to 65535 
instead of zero to 2047. 

A quick glance at the demo program 
supplied with these packages shows just 
what is possible with these two excellent 
programming tools, When the Basic 
version of the demo is run it is surprising 
enough what is being done from within 
Basic But when you see the speed of the 
compiled version it looks even better. 

If you want to get into graphics pro- 
gramming but don't fancy getting into 
machine code then take a look at both of 
these packages they are well worth it. 
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ANY PROGRAMMER WHO IS PLANN- 
ing a game for the C-16 always meets the 
problem of fitting the game into The 
limited memory space. This does not 
mean that the quality of the game will 
surfer, as Commodore proved with the 
3,5K Vic 20, Unfortunately, the compres- 
sion of and economical use of memory is 
not every software house's forte and the 
consequence is a plethora of unsatis- 
factory games. As I have shown there are 
several houses which take the C16 
seriously and this month's collection 
shows the range of games which have 
impressed me and the reasons why. 

Watching my colleagues in the office 
engrossed in yet another game of Break- 
out (and loving every minute) made me 
realise that complexity is not always the 
secret of a truly addictive game and to illu- 
strate this I include Pacmania from Mr 
Chip Software, Pacman was one of the few 
arcade games to transcend the 
boundaries of the amusement arcade and 
capture public interest The game is not 
very complex and even a satisfactory Basic 
game can be written or copied from a 
magazine. The added speed of machine 
code allows many more complications to 
be added and the animation is a lot 
smoother. Mr Chip has taken full advan- 
tage of these benefits to create a game 
which is recognisably the same as the 
arcade game, but different enough to give 
it added excitement, 

Pacmania's hero is the familiar 
gobbling disc who is directed around a 
selection of eight mazes eating up all the 
dots that litter every passageway. Ghosts 
emanate from the centre of the maze and 
set off in hot pursuit of your little 
muncher. In most versions of this game 
that I have seen the ghosts quite often 
wander about aimlessly until they come 
within sight of Pacman, but not so in 
Pacmania. The ghosts in this game go 
straight for the jugular running like crazy 
after you r slower moving little man. Rel ief 
from this relentless pursuit can only be 
gained by either using the hyper-maze 
ports or by eating power pills. 

Hypersports are a bit of a gamble 
because you can never be sure where you 
will reappear after using them. Assuming 
you don't end up on top of another ghost, 
it is an effective way of escaping a hot 
pursuit but the power pills are more pre- 
dictable because they mean that the 
ghosts become vulnerable for a while. 
This allows Pacman to gain more points by 
eating the ghosts or a safe period to eat 
the pills without any interference. The 
speed of the action increases as you work 
your way through each level of eight 



mazes, treating a game which can never 
be mastered fully and should hold the 
interest for quite some time. 

Cyborg on the Budgie budget priced 
label, from the Alligata pool of com- 
panies, is a simple game in programming 
terms but almost impossible to play unless 
you are the persevering type. Only ardent 
shoot em up fanatics should consider 
buying this one because it makes Pacman 
look like a senior citizen's picnic. 

The rules are simple: blast all J the 
moving aliens and save the diminutive 
Cyborgs before the enemy kills them. As 
always the reality is not so simple. In fact it 
took several attempts to start the first 
screen; every time my ship appeared an 
alien would collide with it and zap me 
back to the title screen minus another life. 
Eventually I managed to hang on long 
enough to survive and worry about using 
smart bombs. The instructions state that 
clearing the screen in one fell swoop is 
essential to your survival. What they don t 



tell you is how to detonate a smart bomb 
to achieve this but I found the space bar 
had the desired effect. 

What happens is this, your ship 
appears and then a random number of 
aliens appear all over the screen and 
immediately home in on you. Praying as 
you grasp the fire button, you blast wildly 
and try to wipe them all out before 
another group appears. This goes on until 
you clear the first wave and then the next 
onslaught begins. Occasionally, several 
Cyborgs appear and you must collect as 
many as possible, avoiding all of the 
assorted enemy craft. Not much to the 
game really but it's maddeningly 
addictive. 

Another game from Alligata should 
satisfy any platform game devotees with 
its 20 screens to puzzle over. Forward 
planning and exceptional hand to eye co- 
ordination are all that is required to 
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complete Blagger. 

Little by little, Roger the Dodger must 
learn the secrets of each room as he 
collects the golden keys which unlockthe 
safes. Banks, shops and houses, nothing 
can stop a master thief bur it could be a 
long apprenticeship. 

For the earth bound warrior there is US 
Cold's Beach head. The limited memory 
does not allow for all of the screens 
contained in the C64 version but you do 
get the aircraft attack, battleship bom- 
bardment and the final fortress. Despite 
the dubious claim to 'amazing sound' 
emblazoned on the cassette in bold 
capitals, the game displays something of 
what can be done with the C-I6 r s 
graphics. 

In glorious 3D graphics, your ship must 
bring down the enemy planes which zero 
in from the horizon and then bring the big 
guns to bear on the fleet of warships 
which block your way. In both cases it is 
essential to gauge the correct inclination 
for the guns to hit each target before they 
land enough shots tdfinish your ships off. 

The final battle brings you in conflict 
with the enemy's largest and most 
accurate cannon. There are 10 targets on 
the fortress beneath the cannon and each 
target must be hit when it turns white. 
When all have been destroyed the large 
cannon begins to rotate towards your ship 
and you must score a direct hit on the 
weapon before it fires because it never 
misses. One hit destroys another of your 
ships so speed and accuracy is of the 
essence to succeed. This game lacks the 
addictive qualities of the others 
mentioned so far but the quality of the 
graphic displays is so cleverly achieved 
that it deserves a place in any C-16 
collection. 

Sports fanatics are also catered for with 
the C-16. Ocean has converted Daley 
Thompson's Star Events for the joystick 
waggling armchair athletes. The game 
comes in two parts, side one contains four 
track events and side two has three field 
competitions. The track events are the 
most frantic, partly because they last 
longer than the field events and therefore 
require a degree of stamina for success. 
The events comprise of the 100 metres, 
110 metres hurdles, the gruelling 400 
metres, with the 200 metres hurdles 
following close on its heels. The animated 
graphics are also cleverly done but this is 
not the sort of game where you spend 
your time admiringthe scenery! Provision 
has not been made to carry your results 
through to the events on side two which is 
a pity. On my tape this side wouldn't load 
but I'll accept Ocean s word that the long 
jump, shot-put and javelin events are just 
as enjoyably challenging. 

For sophistication I preferred 
Imagine's World Series Baseball. Not only 
do you get a 3D imageof the diamond but 
there is also a giant video screen in the 
background which shows a close up view 
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Control is complex with all of the 
joystick positions having a bearing on 
various nuances of the gameplay. The 
animation is outstanding and with a little 
practice any novice can be hitting home 
runs, stealing bases and pitching fast balls 
with the best of therti. Perhaps after 
learning the basics by playing this game, 
baseball could challenge American 
Football as a new spectator sport in this 
country. 

So far none of these games has been 
particularly demanding on the old grey 
matter Rushing in to fill this gap is an 
adventure game from Bug Byte, 

Although Twin Kingdom Valley has 
been available for the C64 for quite some 
time now, this C-16 version is pretty new. 

The game has been condensed by 
removing the graphics and some of the 
less important locations of the original. 



I've always felt that the graphics in an 
adventure limit a player's imagination 
(though I admit that this criticism is often 
cited in defence of radio drama over 
television!), so I'd rather play a complex 
text adventure than a limited multi-image 
game, 

A nice touch is that the arrow and 
function key^ are fully utilised to reduce 
the amount of typing necessary. The 
vocabulary is a little limited., action 
comma n ds being selected from a list of 33 
words. Not bad considering. 

The idea is to wander about the Vatley 
amassing as much treasure as possible. 
The pathways and caverns are patrolled 
by a variety of creatures who may turn out 
to be good or evil. As in life, the only way 
you can divide the wolves from the sheep 



is to cautiously try to befriend everyone 
you meet. Unlike life, if you die you can 
always try again. 

There is no SAVE facility which means 
that you must start again each time you 
begin a session. This is a definite irritation 
but you can't have everything. 

For me the ultimate brain stretcher is 
chess and my selection here would be 
Audiogenic's Grand Master. Playing 
against the computer is possible at a wide 
range of skill levels from novice to Grand 
Master. 

The board is shown in plan view only 
and you can get the computer to suggest a 
move if you get really stuck, You can even 
leave Ihe computer to play itself if you 
prefer but there isn't a two player option. 
This is true of most chess simulations 
based on the acceptable argument that 
the two player game is best played on a 
real board. 

If the publicity blurb is lo be believed, 
Grand Master claims to be the best chess 
game around. Whether you believe this 
or not is immaterial to me, whatever the 
truth my brain is well and truly taxed by 
this game. Well worth checking out 

The final game in this round up is by far 
the most impressive game I have seen on 
the C-16. ACE is a flight simulator {Air 
Combat Emulator) with stunningly fast- 
acting graphics. 

As a fighter pilot, you find yourself 
already zipping through the ether at the 
beginning of the simulation. The control 
pane! has all the necessary indicators to 
give you a fair chance to stay in the air 
and the radar displays the enemies' 
positions. 

The aim is to seek out and destroy the 
enemy planes using the radar at first 
followed by visual tracking through the 
cockpit window. Trying to keep a plane in 
your sights as he dodges and fires at you is 
not very easy to do and low altitude aero- 
batics must only be indulged in by 
experts. 

Full control over the jet is possible; 
climbing, diving, rolling and looping are 
all catered for and keeping track of the 
jet's orientation can be extremely difficult 
in the heat of battle. No collection can be 
considered complete without ACE, 

It's not often that we have good news 
for Plus/4 owner's but Cascade have just 
brought out a specially expanded and 
improved version of ACE for these 
machines (reviewed in this issue of Your 
Commodore ). Buy it, it's money well 
spent. 

Well that ends this little round up, 
next month HI be looking at more serious 
applications software for the C-16. In the 
meantime why not drop me a line at the 
Your Commodore office telling me about 
you particular favourite game on the 
good old C-16. If enough people disagree 
with my selection Til give your games a 
whizz and see if I agree. You can reach me 
care of Your Commodore, 1 Golden 
Square, London W1R 3AB. 
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Send your requirements to: 
STUART TAYLOR 
ASP LTD, 1 GOLDEN SQUARE, 
LONDON W1 
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PLUS 4/C16 SOFTWARE 

with over 
125 TITLES TO CHOOSE FROM 
DISCOUNTS FROM 10% - 50% 
INCLUDING MANY OF THE LATEST TITLES 
TO RECEIVE YOUR FREE LIST 
SEND <A2> SAE TO:— 

Venturegate Ltd (C16/PLUS4 Software List) 

17 Herald Road, Leeds LS6 1PR, W. Yorkshire, England. 



BANKER 64 

(1 you are fed up not be rq able Id keep Hack of your bank account this program 
may fee just what you are looking for Simple to use as it is menu, drven i1 wiH hold 
full rJetaHs or Crftdrtv Debit*. Standing orders and Dlred DebUs and will auto- 
matically place tr»em in date order It will grve you stalfrmenr,* 1o tcwn C prln|e# 
Including the l££0 plotter printer. Records can be slored on bolh disk and tape fo* 
complele Back-up. Entry tr> any accounl is by name- and Security code which can 
bee hanged as necessary. Th is m.'c p rogram i& very good H 1 1 1 ■ .:i : £6. 25 dl ■ k. £4.0D 

RAMFILE 

Keep Irack ol your SoUware. Records, Slamp Collection, Addresses etc. with this 
easy 1o use menu driven filling system. Entry thles are user defineablft Powerful 
OptfCms include search and amend routines. Print routines, allows pointing of entry 
time, setecled entry or complete file lo any printer including I he 152Q plotter Files 
can be stored on both disk and tape 

This; m/c program is very good value a1 £6.25 disk. £4.00 tape. 
Spaclaf Offer — Bolh prog rami £10. Disk Both programs £7 00 Tape 
All prices, include VAT P&P Cheques A P.O. to 
HJP ELECTRONICS 
27 Denhant Way. C*mfeer P Hye, E**1 Suwei TN31 7XP Tel. <D7W) 225549 



CLAIRES COMPUTERS 

TOP Sotl were at LOWEST Prices 
Order two till** and you will receive 
a Top Class game FREE 



J A p C 
£7.50 

S3M 
£7.50 
£7.50 
£7.50 
£6.50 
£7 50 
£7-W 
£7.50 



DISK 

JE10.SO 



£1Z.95 



Fight Night 
Boundar 
RBvA 

The Eidolon 
Rambo 
CommifldO 
Yie Ar Kung Fu 
They Sold A Million 
Deserl Fo*. 
Winler Gjimris 
Liiile Computer Peopi«£7-S0 
Konn*s fiiu £7.50 

Quick Shot II JoyilickH Only E&.5D 
This is only a se led ion from our stock 
Send now 1or latest list. 
Send Cheque's P/O 10 
Claire* Cflmpulatt, 16 Treganoon Bd, 
Moiml AmtffOie, fledruth. Cornwall, 

THUMB 
Tel 020* 21 1 930 1or yewr sottwa re needs 



S10.S0 
£.10.50 
r i □ 
£10.50 
l\Q hC 



ALPHASOFT 

CBMG4 Software - 2S% Reduction* 



Kuno-Fu Mjister 

£7.13 
□aaen Fo*. £7.45 
Spy Va Spy licr.4i 
Thfr Eidolon £7.45 
.r - £7 45 



Comic Bakery 
KM 

Yifr Ar Kuftg Fu 
E&.90 ' 

undium es.grj 

Gji I flljirrr £7.50 
Bu.,i-.der £7.45 



AND MANY MCI HE! 
Cheoue P.O lo ALPHASOFT 
115 Parianaga Road, Wlthlngton. 
Mencheiter M20 9WZ 

iLiat sent with order. PIP mcluOed) 
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SOCCER MANAGER - Manage your 
own team, 4 division*, F A. Cup, 
transfers tatties elc 
RACE NIGHT - Run your own 
raceflicnt up to 10 plflyers Exciting 
hor&o raong game 

SOCCER QUIZ — Test your soccer 
knowledge, hundreds ol questions. 
Any one For £3.», 2 for W.99, 3 lor E8.50 
T, PALMER, 41, Old Park Road. 
Sheffield *. Tel: D742 



FRENCH REVISION 
"Li Con)ugalion 

30 Regular Verbs- 17 Tenses for 

C.S.E., 'O', 'A' Lave! AS wS*d in 
schools. 

Commodore 6-1 D.sfc E13.«5-50p pfio. 
ACCESS & CHEQUES WELCOME 
Enquiries i Orders tc 
MEDSTAT LTD, Clly House. 
Maid Marion Way. Noltlngnam NG1 6BH 
Tfl 06D2 411120 
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DERBY DAY -C1 6 Can you pick a 
winner in tfiis Horse-Racing Spec- 
tacular? On Screen Action, visual 
form guide. Over 50 horses, 
thousands of race combinations. 
Realistic betting Irom different 
meelings. Plus many more 
features. Send C5.75. Cheque/PO 
lo BLOOM FIELD SOFTWARE^ 
P.O. Box 69, Blackpool FY2 9EX 



For details of 
advertising in 
Your Commodore 
Phone 01-437-0699 
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QUIZ GAMES! 

ON CASSETTE FOR C64 

BLCtCKBREAKER — £4.4S ■ 
thinking questions flame Wli 

prii« and your opprjnu-nt 

Brtra queslions avmla&le E2.99 
TIMES UP — £3-» — Good with wrjnj*? 
Ihan you'll enjoy tt»ii on*! Hiflheal aco*e 
chaiien^jes n«w opponent. 
Add SOp for pap Cheque*' , P.O to 

GAMES MAKER 
92, Robin Hood Lane, Hall 
Green, Birmingham B28 OJX 

Tel: 021 745 3896 




Now you can use your computer to help you learn or 
develop your skills on the guitar with GUITAR STUDIO, 
a range of essential software for guitarists. 

4 Guitar Studio 1 - a tutor for beginners with or without 
a teacher. Creating a more musical environment 
encourages a more enjoyable and musical approach to 
learning while progressing at your own speed- 
Excellent for the guitarist who wishes to learn to read 
music. 

" Guitar Studio 2 - a chord dictionary with utilities. 500 
chords, practice routines, melody input from 
manuscript or through the on-screen fretboard, 
develop your own chord sequences (even your own 
chords) through a simple programming facility. Play 
back with a wide choice of preset sounds Full editing 
and filing facility, 

* Guitar Studio 3 - music theory for guitarists Includes 
principles of notation, intervals, chord structures as 
applied to the guitar, scales, keys, etc. Tests are 
included enabling the user to monitor his/her prog ress. 
TEACHERS - send for details if you want to interest 
your pupils in any of the above. 

Price each - TAPE £9.95, DISK £11,95 
Available through your nearest software dealer or 
direct from Micro Music. Trade enquiries welcome, 

MICRO MUSIC 
software for music education 
St. Michael s Chambers 
Spurrierqate 
York Y01 TQR 
(Tel: (0904) 647588 
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Advertisements placed in this magazine are to be in strict compliance with our standard conditions (copies of which 
conditions are available on request) and on the clear understanding that the advertiser warrants that his 
advertisements) does not infringe any copyright or condition of sale of any interested party in the advertised 
product. 

Further, the advertiser indemnifies the proprietors of this magazine in respect of costs, damages, or any other claims 

brought against them as a result of legal action arising from the publication of the advertisement. 

Any breach of these terms or the said conditions may result In prosecution of the advertiser by the proprietors 
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TRIDENT ENTERPRISES 
LTD 



Commodore 64 — £1 5. Vic 20 
— £12.50, Spectrum — 
£10.50, QL — £30, 1541 Disk 
Drives — £20, and all Com- 
modore systems. Send faulty 
machine with nole describing 
fault to: 

UNIT J. WENTWOflTH INDUSTRIAL 
COUH7, GOODWIN ROAD. BftlTWELL, 
SLOUGH TEL. 0753 21391 

Ovineai enqulrtti walcoms. 
(Above prtcH mrm txcluiN* cf 
pirti and VAT). 



COMMODORE REPAIRS 

Cortimodo™ repair* by Commodore 
app'oved onfliritfers. Repai' prices. 
Vi4 20 modulator £j..01. Vk 20 115 M. 
CBMtHrom fiMJM. C2N iron U.M. 1541 
irnm £20.00 CM p*u £13.50. Spectrum 
t1*.50, Dragon £32.00 ElMlrons. Alar* 
For m^mtajmjijo n |A ft E ggfj***- 

36 Burlington Road, Burnham, 
Buck! SL1 7BQ. 
Tel: rOG2W) S16S6 

9am-ijjprii Mpn-Frl. 



EXPRESS COMMODORE 
REPAiRSh^T 

WHY PAY HIGH 
"FIXED 1 PRICES \- 

FOR PROFESSIONALISM - Of all the 
repair companm 5inc!dir" User' spo*e 
to MAN COM P weroeO The MOST 
PROFESSIONAL whm it tame -jo *J«« 
ard a Wpr..n attitude" AUG8S 

WHV DE LAV - OUR ESTIMATES AftE 
FREE AND WrHC u T OBLIGATION IF 
VtMJ DO HOT LIKE OUR ESTIMATE 
WE WILL RETURN THE COMPUTER 
AND REFUND THE POSTAGE 
INCURRED! 

i*^ MANCOMFltd 

(Dept. YC5) 

Printworks Lar*. Levenshulrr*. 

ManchwtW* M19 3JP 
OPEN MON SAT gam to 7pm 
I 06 i HA MWVmj 



When replying to 
classified advertisements 
readers are recommended 
to take steps to protect 
their interest before 
sending money. 



COMPUTER REPAIRS 
IN LONDON! 

" Commodore, Spectrum. BBC, 

Atari, Amslrad elc. 
' Low cost repairs from £12.00 
' Collection & delivery optional 
Call Nigel: 9S1 2H12 
ELECTRONIC SYSTEMS 
SERVICES 
P.O. Box 443, 
London NW10 8XB 



BUY OR SELL your unwanted 
soflware. books, and hardware. We 
put you directly in comae* wilh 
each other in your area. Details: 
Second Hand Computer Sales 
Agency 38. Bawling Alley Walks. 
Dorchesler, Dorset. Tel (0305) 
64849 (24 hrs). 



SOUTH CAST KENT SOFTWARE 

D*pLY.'C P.O. Bc-ic 152 Orpington. K?n1 

We stock for Sp-eclrunv AmelrafJ, Commo- 
dore- SrtmJ s a E for foil lift 4nd pxicw. 
Plaaw state whicn. Poalage/'Facklng 

Liy**-MSas £1 DO 
COMMODORE it GAMES [TAPE) 

HRP OUR Pflrce 

Commando 19.95 £7.31 

Bsach Head II £8 95 CS.75 

Ml Capes £8.95 £6.65 

Summer Gamea 41 £0.95 E6.71 
transtormers C6 9$ £6 es, 

Winter Games £9.95 £7.31 

Never Ending Slory £9 95 
Uuich Shot II JoyBlw* £i i 95 £7.95 
And Many Mpm TittM 
Prices Now Include Pusrage,'Packing 
BUSINESS (DISK) 

Rftp OUR PflKJE 
Supwcnpl £69.95 £52.95 

Sup** base 64 £99.95 £60.00 

Mome AcoountB £24 95 £ 19-95 

EDUCATION 

English, Mains. German. Ffflnch. Hislory 
RHP £9.95 OUR PA ICE £7 Si 
Cheque^'PO'* payable to. J. F*rguin> 
Pipitso aiigm 2i days deiiyery 




FRST COHPUTER REPRIRS 





VIDEO VAULT INTERNATIONAL 




10* REPAIR SERVICE 



COMMODORE 64 REPAIRED FOR ONLY £35.00 including P0ST& 
PACKING PARTS INSURANCE - NO HIDDEN EXTRAS! 



Are you fed up wartlng weeks for 
vcjur computer cc bo repaired 
well wait no longer we repair ah 
Commodores same. day. We also 
do com 16 Vk 20, iwi DHsk 
Drives, plus i, or vOu catv order 
rhe Rvptacemarrt Chips from our 
D.t.T. section 



* while you wart repair service. 

* 3 montn written gujnnrfee on sii 
repairs. 

*■ mterratjwial Repair Kmpany.w* 
repair computers from ai I over the 

world. 

* Alt Computers s#nt Mai) order turned 

around in lanrs. 



* Most conimodrxe*. repaired 
within ihr. 

* All Micro J insured for return journey. 

* Over a yean experience working with 
computers rTbavKt 1 

* All compiitersfully tested j ecpiT^ i 

* Power supplies fully tested. |",f flJ *Sl 

* Rca output fully tested Mini 



l^^SB^KK D.I.Y. SECTION- 

if you know what chip has gone in your computer you 
can order the replacement I.e. from our range. 



elephone: Glossop (STD 04574) 66555/67761 
140 High St. West, Glossop, Derbyshire, England 



6526 
6510 
6581 

901227-03 
901226-01 



23.00 
23.00 
23.00 
23 00 
23 00 



901225-01 23,00 

6569 23.00 
4164 RAMS 3.00 
Power Supply 

units 29.00 



Ail prices include V. AT./ please AQD £i 50 to cover 
P & P and handling costs, insurance. 



Copyright Video vault Ltd. No 1 Si 085 



FOR HIRE 



HARDWARE 



MIDLAND COMPUTER 
LIBRARY 

ATTENTION COMMODORE USERS 
A SUBSIDIARY OF PLATINUM GOLD 



1 OVER 7 .000 different titles available for hire for the COMMODORE, SPECTRUM, 

ELECTRON, BBC, AMSTRAO, ATARI, and MSX comouUra. 
' ARCADE, ADVENTURE, EDUCATIONAL and BUSINESS software too 
' HIRE PRICES from only 7Sp IMC- P*P. 

■ 2<W\, DISCOUNT off all pu rchase software-. 

■ FREE CATALOGUES. " FREE HINTS AND TIPS- 

■ FAST RETURN OF POST SERVICE (if reserve* ar* oivsnj, 

' ALL GAMES manufactured ORIGINALS wilih lull documentation. 
" OVER 6 DOC satisfied members. ' EUROPEAN members welcome. 

FREE MEMBERSHIP LIMITED PERIOD ONLY 
' Ful ly computerised system keeps track of your order. We pride ou reaves in bem g trie 
most professional Hire- Library in (he United Kingdom, with staff of 14 who knows what 
the word service means. Bached by our own software company and programmers. 



MIDLAND- COMPUTER LIBRARY 

H Cnilig. SlrwE. Wnrcubar WR1 2 LB. T«l: BBOS 111071 

Pleasfl rush mff my catalogs. enclOB^g £1 1o cover COBIS R>fundWjle on fining 

Mime; 

Addrew , , n. 



VIC-20/CBM-64 
SOFTWARE HIRE 

Free Membership. Hundreds. o1 Titles 
to choose Irom. Sand S.A.E, lor your 
Free Hire Kit: 

V$H 4YM r . PQ BOX ». NOTTINGHAM NO' 



SOFTWARE 
APPLICATIONS 



HOME ACCOUNTS 

Put your house in order! 
Probably home computing's 
best use! Comprehensive 
coverage of bank accounts. 
Credit cards, HP in-built 
accuracy check- Records all 
transactions. Projects cash- 
flow for any period ahead. 
Available for Complete Com- 
modore Range, £6,45 or free 
details from: 

Discus Software 

Freepost 
Beach Approach 
B rix ham TQS SBR 
Tel: (MCWS 55532 



Promote your 
service on these 
pages every 
month at a 
cost effective rate. 



FOR SALE 



MOON RAKER £7.95 

CBMG4 Space Game featum fait 
+Fly>lfita HolUng Radar Display 

4|n|r£ R«d Tpngjl 5£F»»n 

Altitude, Time. Score Indicators, 
FuaVPurph*** Oplknfi. Promotion, 
i*nd ynur name, ■ddrwi a PO/ctvK^r In : 

J ft J Gllmour Ltd., 

D*p\ VC4BE. 4 Copse Close. Lisa. 
Hampshire Gu$l TEW, England. 
Tat: uTW-fiaMM. 



COMMODORE 64 cassette 
library, Hire latest games and 
educational software, onty one 
price £1.50 per cassette 7 days 
hire. Details S.A.E. please: CCt., 
19 DarreH Wav, Abingdon, OX14 
1HQ. 



DISCS 



111 FREE DISKS !!! 

For eve r y 1 0 ordered we 9 upp I y 1 1 

W 

SS/OD £10.99 SS/GD £13.19 
DS/DD £13.19 DS/OD £15.39 



5/5 ide £27.49 D/Side £32.99 

AH prices INCLUDE VAT 
Delivery is FREE 
All disks guaranteed for 12 months 

Cash with order pieaae to 
HOLLBARN Ltd., Oapt CM1, 
0 Alexander Road, Stotfold, 
Hltchln, Harts. SGS 4NA. 



Super Breaker 
Back-Up Board 

For the. Commodore 64, CBM 12B and 
VIG-Hr. When a second CBM lype ces- 
sans, unit i» connected 10 Ihe board i1 
will make security cac* -up copies of 
caasfiile based soUwar*, including 
Turbo/Fas! Loaders. Basic and/or 
Machine Code and Data FHm, No 
additional software is needed Very 
User Friendty. Ihe back-up copy a 
made on the second cassette wh ile 1ha 
original u loading en the First. Price at 
£9 95 Plus PS P. 

BESET CARTRIDGE <OI CBM 64. This 
cartridge will reset all. yea all, memory 
resident programs,. Including all pro- 
grams whara standard rgsel switches 
rail. Price £7.95 - P&P. 

P6.P 5Sp UK (Europe acid 11 .00. else- 
where add £2-00) Sand cheque/ postal 
critter, or e alamp for details lo: 

C. K#n1, 26 North cap* Walk, 
Corby. Northanta. NN1S 9DQ- 
For enqulrtaa telephone (u&afij T4ZE22 



STAR SG-10C PRINTER 

ONlTf £249 TO INCLUDE VAT & NEXT DAY 
DELIVERY BY SECURICOfl 

100% compatible with yout Commodore computer. 

TiOcps draft mode. 

Tractor and friction feed standard. 

Near Leiler Quality mode included. 

192 graphic mode characters, 

t92 business made characters 

90 italic characters. 

90 NLQ chara tiers. 

Normal 80 cpl. Condensed 136 cpl- 

Enlarged 2X r IX & 4X. 

Suppl'ed with interface/cable and mams plug READY TO GO. 

SEIKOSHA GP100 VC PRINTER £99 
STRONG COMPUTER SYSTEMS 

SHYNA COTTAGE, P£NIIL. CARMARTHEN, DYFED SA32 7DJ 
TEL: I0267] 231 24G FOR ASSISTANCE!!! 



C64 



+ BACK-UP-SYSTEMS FOR CBM-64 & VIC-20 * 

The BACK-UP-BOARD Mk. 1 ■» ihafaatatt, and easiest way to b*ck up your tape 
programs. Wilh this board you can connect a second CBM cassette deck to your 
: : u1e.r . You c.a n copy a prog ram on the second deck wh ile the origi na! loads from 
Ihg f>rs1 V 0 .j can back up all fast leaders, data lil*i. etc BACK-UP- BOARD Mk 1 
(10.00 inc. P*.P 

BACK-UP-BOARD Mk. 2. This new version of our lamous BAC K-UP-BOA.fi D is now 
proving » popular || Is OuUell ing Our original Mk 1 Th is new board now works two 
ways. Switched 1o NORMAL' i1 c paroles as the Mk 1 . Switched to 'GENERATE', -64' 
owners can use ou r special iransrar software to reg*ner«ie a copy of a program on the 
second deck as it loads front the lirst. This method can produce a better quality copy 
than the original, BACK-UP-BOARD Mk 2 & Software £14.50 inc. P*P. Conversion 
sarvce. Return your Mk. 1 Board, if purchased Irom us. to be modified to Mk. 2 for 
£4.50 including software 6 P4P. 

AZIMUTH HEAD ALIGNMENT TAPE by INTERCEPTOR 10 r 64' Use ih 15 tesl 
with your 6* ta adjust the needs of your decKs 1o maKe a perfectly matched patr. Full 
inslruclions and screwdriver supplied. £B 50 Inc. PAP. 

ROM SWiTCH/RESET BOARD. Fit this board m th* expansion port oi your '64' and 
you can reael ALL programs Resets programs that e standard reset switch can'1. A 
sockel for a 2764 BK epfOm u also lifted Full instructions supplied £B95inc P4P 
Please send SAE for more deteils of the above products. Send your cheque^PO 1o: 

TURBOTRONIC 
46 Rlpon St, Parkinson Lane, Hal flax, Wast Yorkshire H X1 3UG- 
Tel: {0422} 52020 
(Europe add 50 p outside Europe add £1.50) 





We use only 
10% of our 
mental 
potentials 

Elnittln 

Tfm* are th* #cda at *ltnn Bnilit*], 
th* gr«i*K p^ysJclai oi rtc«m Umtt 

LH«i Hubbard't dtoecvtrtM i.h* 
IWtf of fra mlrvf Qfovt wxlay lhat Em«t*in 

In Till book "DlAHETlCfi: Thi MuHir 
Sci»nc* oi Marrtnf Utehti" L Ban Hi*, 
bird ciku Hftt not* glam ttep lit IN* 
Sirwsion 

M| r*v*al* r,rs» mnyon* em uh hn b*- 
covflrlm 1d lHli.41 INi ™ct burin ' 
hurt ks fir SfPrtmsd p«epl# Irs 
lhair mental potaniilt to m* ttf- 

U<xf inij mprf p^gpl* Prom mi *mJhi 

if m* Including tachmoBni., inni, QP*, 

■clmbsta. *arknri infl rnan»a«rt 4llk« 
l4« D ai-oliua iwi- -luivgy 

Th* ifwry wrlban ntpena on **tr iuc- 
eas* &t* fa* b*« proof of *i# quUtry of 
lhl# book. 

Find sw lor yourHff Order ysur copy 
nt IMS rfnuj.«k|bu> tj^Qk. 1oday, 

Prir.fl B3,K p«(iw-bich C1T.W Li'n 
bach Mihfl chuqimi ind POi pivible 1d 

fi.H.F. S*rd 1d ChunJi of aawtatorr 
Sunl Mill FaundHlon, FRECPOST !VC 5 J 
Eut Gfkiibud, Suhwk RM1C *£A \fi* 
bIitp rvqjlrsdj. 



For advertising 
details phone 
Stuart Taylor 
on 01-437-0699 



EPROMS 



PROM-64 

EPFlOM pro-grammar for 6K. 16K, 
ZiF socket, ypp gen^rafor & 
software on tape £34.75 
64-CARTndge, 2 * SK £5.95 
DEWO EPROM SK £4.fl5 
DHOBI-2 EPROM eraser £22.95 
OK + 1 5% VAT 

Cambridge Micraeleclronics 
One Ml Hon Road, Cum bridge 
CB4 1UY 
Tel: (0223) Tlx: 81574 



SPORT 



Horso t-jrm CGM 64.1 ?H 
graphics/sound, printer/screen 
output, aave-Joad raca flies. «asy data 
ftnlry For the ■ , io r e J SLemirc. J iat 
racir>g man Horw lorm qjIvm 
winners. £7.15 cassette. 
ChequA'PO to: 

SEESAW SOFTWARE, 
Bex No. S 12. ire Araiut S P »o>l I v\ 
Publications, No. 1, Golden Square, 
Londun WIR 3AB. 



FOR SALE 



GADGET 64 £6.95 



Thla 1MS machine cod* CBMB4 
cpt-ittii utility altera: Append, Delete, 
Hen umber (Including Goto. Go tufa, tfie ) 
Smii fyl n gly akmpla to use. Send your 
Name, Addteaa i PO or Cheque fw 
£6.95 i P*P Fnsa) Id 

J & J Gllmour Ltd.. 

U*p1 YC4M, 4 Copm Clnifl. I In 
Hampahlre GU33 7EW, Ertpland, 

Tel: or»o-e»3am 



Al 



O 



THta 

Comm-ando 



CI G PLUS 4 SOFTWARE 



RUF" OUR 

7*5 6.75 

Games Designer 9 95 0 50 

ACE. |C-l6l 9.95 iJSO 

A C.E. (Plus 4-h 10.94 

6.95 S.M 

7*5 (75 

6.95 5.95 

5.95 4.9S 

8 95 S.95 

695 5.95 

6 95 S.9S 
7.95 B.7S 

9.95 8.50 

7.95 8.75 

7 96 6 75 
6.95 S.9S 
5.95 7.75 
695 7.75 
6.95 5.9S 
6 95 5.95 
6 95 4.U 
7.95 6.75 
4»4 4.50 



AlfrtQir 

S1bvb D*vi* Snoohfli 

Daley Thompson 51ar Events 

Jump Jvt 

Games Pack I (1 5 gamut 
Ciamnx Pa^k II (15 gamm] 
World Cup Football . . 

G i.j ii* in i] Falcon 

Tha Bo*i 

Anirog FaMOurMe Four 

C-16 Claasica 

C-16 Classics Jt. .. 

Gremlins ...... ... 

SpjdnrmarVHuik Par.k 

AttantlB 

Grand Waste* Chess <C-l6r 
GiiiniJmiiatwr Chpss IPIii* 4\ 

Ttmi Thumb 

Sw^irc of Des1»ny 

X&rrjP-nS Revwgi? 

World" Ser*es Baseball 

Robecn Hand Alignment . , 



Till* P| RP 

Boizh M«d 7.65 

□winner 1*,. 7.95 

Dart Towar 5 95 

Wizard and Pmncess 5 95 

ClaiSK AdvwnlurB 5.95 

Supergran 9.95 

Canoe Slalnm . 5.95 

BUDGET SOFTWAflE 
Maalerlronk Tliia* k" m eaehi 
Formula 1 Simutelor 
Vegas Jackpot 
TuMi Fruily 
BMX Racflf* 
Rockman 

5<quifm 
5p*o;ipifrlp 
Big Mac 
Mr Pumyflfs* 

SnkarTifea {£2 99 sachj 
Knock-Oui 
Miss-ion Mara 
Suicide Run 
Alian Attack 
Cruncher 
Quick Draw 



OUR 

fi.75 
C.79 

fl.95 
4.S* 
4.95 
«.» 
5.94 



&W any 3 
fer cs.aa 



Buy any 3 
£7 K 
Of 

Buy any ? 

tor 1 



AM fwinos inrlurtc poslage and packing in In* U.K.. c ~ 1fl JOYSTICK 

Paymam wHU order by cheque or pen ai order pmawt 10 

JO THAN SOFTWARE (Dept V.C.I) 
65 Heol Gwya, Upp*r Cwmfwrch, Swanaha SA9 2XQ. Tnl: 0.§39-9 309 ll* 



Pleas* Matt 
whifih micro 



HIRE HJRE 

STAFFS COMPUTER LIBRARY 

CBM 64 OWNERS 

Join the friendly Library, Wa give you what you want. If a title 
is not on our list then we will get it. if it s still available. 
(Games only} 

• All the latest Titles 

* Full 7 Days Hire 

* Low Hire Cost. From 75p 

• Up to 4 Games per week 

* All games original 

• Lots of American Titles 

• Low Hard and Software prices 

* Membership ONLY £5.00 

Free m/c Monitor on joining 

Send your cheques/postal orders payable to; 
STAFF COMPUTERS 
The New/lands, Green some Lane, Stafford 



YOUR COMMODORE CLASSIFIED ORDER FORM 



1 


2 


3 


4, 


5 




7. 


ft 


9 


m 


11 




13. 


14 


15 



























Please place my advert in YC for. issues 

commencing as soon as possible. I am enclosing 

my chequa/P.Q. for £ (made payable to 

A.S.P. LTD ) {A 6p p« r word VAT I NCLOS IVE+) 
N ami . , , 



EjJ knn.ii aL I .an. 

r*nofie no. 



SEND TO: STUART TAYLOR, ASP LTD 

1 GOLDEN SQUARE, LONDON W1R 



\ I I I H M T T T PLilXJ 



Its easy to complain 
about advertisements. 
But which ones? 



Every week millions of advertisements appear in print, on posters or 
in the cinema. 

Most of them comply with the rules contained in the British Code of 

Advertising Practice. 

But some of them break the rules and warrant your complaints. 
If you're not sure about which ones they are, however, drop us a line 

and well send you an abridged copy of the Advertising Code- 
Then, if an advertisement bothers you, you'll be justified in 

bothering us. 



in m 

/ 



The Advertising Standards Authority. 1 
If an advertisement is wrong, were here to put it right. 

ASA Ltd, Dept 2 Brook House, Torririgton Place, London WC1E7HN 




CB1VI 64 \ 



» f ■ 
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CM/PLUS 4 COMES OF AGE! 

BONGO C16/PLUS 4 £5.95 Cassette 



y graphics and 
els - Menu driven 
with save/ load facility. 



C16/PLUS 4 



igh res. gra 
construct your own 










Represent your countr 

in six star events 
competition includin 
BIATHLON and 
BOB SLEIGH 
set against a 
scenic 



IR SPOI 



£6,95 



ence the sheer exhilaration of POWER BOAT RACING - Negotiate 
a complex SLALOM COURSE - Rise to the challenge of a SKI JUMP. 
Three exciting competitive events. ENHANCED PLUS 4 FEATURES 




C16/PLUS 4 
£6.95 Cass. 





TRADE ENQUIRIES: 



- CHESS - ICE HOCKEY 



E, BEXLEY. KENT 



MA/L ORDER: 

24 HR CREDIT CARD SERVICI 



Choosing the right computer 
is a good start — but can you 
find the right software? 



ciiPERSOFT 




SUNSOFT 



At SUPERSOFT we're very conscious of the 
•act that people who spend several hundred 
pounds on computer equipment are looking 
to do rather more than play Space Invaders. 

Financial planning is a rather grand name 
for something you've been doing all your life 
- making ends meet! Perhaps if Mr 
Micawber had used BUSICALC he would 
have been able to balance the books a little 
better. 

For home, club or small business use 
BUSICALC 1 should pay for itself in no time at 
all; for larger companies we recommend 
BUSICALC 3, one of the few really valuable 
programs that you can learn to use in a day. 

Although your Commodore 64 is a power- 
ful musical instrument you need to be a 
pretty good programmer to understand how 
it all works. Unless, of course, you buy MUSIC 
MASTER! 

To use MUSIC MASTER requires no prior 
musical knowledge, though in the hands of 
an experienced musician it will prove an 
invaluable tool. You don't need to know the 
first thing about programming either! MUSIC 
MASTER is the musical equivalent of a word 
processor, remembering the notes you play 
and allowing you to replay and edit them as 
you wish, 




INTERDICTOH PILOT s a space flight 
simulator Nowadays simulators are widely 
used to t rai n pi I ots a n d astro na u ts beca u se - 
to be frank - it J s a lot cheaper {and safer) 
than the real thing! 

Imagine, if you will, lite in the 22nd 
century; space travel is commonplace, and 
on the outskirts of the galaxy the first war 
between civilizations is being fought. A short- 
age of trained pilots has prompted the Feder- 
ation to develop a computer simulation that 
allows raw recruits to gain experience with- 
out paying for their mistakes with their lives. 
With the aid of your Commodore 64 you too 
can learn to pilot the Interdictor Mk 3 craft. 
But be warned - this is no game! 




SUPERSOFT, Winchester House, Canning Road, 
Weald stone, Harrow, Middlesex HA3 7SJ 
Telephone: 01-H61 1166 



Other SUPERSOFT products include the 
MIKRO ASSEMBLER cartridge, the only 
assembler that's ideal for beginners yet pow- 
erful enough for the professional {most of 
our competitors use it!). The VlCTREE cart- 
ridge adds dozens of commands to Basic 
including toolkit aids and disk commands; or 
on disk there's MASTER 64, a really com- 
prehensive package for the keen prog- 
rammer. 

Of course, we do also puhlish games 
programs, and with classics like STIX, QUINX 
and KAMI KAZE in our range we are one of 
the market leaders. But we most enjoy 
coming up with the sort of programs that are 
going to be in use for months and years, not 
hours and days - the sort of programs that 
make you glad that you bought a computer — 
and glad that you bought SUPERSOFT! 

You won't find SUPERSOFT products on 
the shelves of your local supermarket. But 
most specialist shops stock titles from our 
extensive range (and are prepared to obtain 
other programs to order). However you can 
also buy direct by sending a cheque {pre-paid 
orders are post free!}, by calling at our 
offices, or over the telephone using your 
ACCESS card. 



